Delimiter error

Hallo Sara

Danke für diese Antwort. Es geht ja eigentlich nicht darum, dass ich die Daten nicht ins Excel bekomme, sondern dass Excel beim Öffnen (Rechtsklick) der csv - Datei zwar die Trennzeichen ( richtig erkennt, dafür aber die Umlaute, d.h. den Zeichensatz nicht.
Wenn ich eine Klickübung mache, dann ist der Default - Delimiter falsch gesetzt ....

Und das mache ich jeden Tag, immer wieder.

Ich suche die Lösung, dass Excel beim Rechtsklick die Tabelle öffnet mit korrekten Spalten und Zeichensatz. Es kann ja nicht sein, dass der dumme Editor die Zeichen kennt, Excel nicht etc.

Es ist mir auch egal, die php Datei zu ändern, die diesen Export macht. Also z.B. Tab als Delimiter (nicht feste Breite wegen Bemerkungsfeld) und irgendeinen Zeichensatz, aber was?

Gruss

Charly

hy Berta,

vielleicht hilft dir dieser beitrag schon weiter:

http://www.access-o-mania.de/forum/index.php?topic=6274.0;wap2



George

Datei, Speichern unter, Dateityp CSV (MS-DOS), Tools\Weboptionen...

...Codierung und Unicode UTF-8 wählen

EDIT: Quark gelöscht, weder sind die Trennzeichen richtig, noch die Codierung, Entschuldigung.

Lad Dir mal dies AddIn runter

https://dl.dropboxusercontent.com/u/35239054/CSV.xla

Markiere die Zellen die exportiert werden sollen, dann klickst Du mit rechts, ganz unten im Contextmenü ist CSV.

In den Optionen stellst Du Dein Trennzeichen und als Codierung UTF8 ein, Speichern und Ok.

Dann nochmal mit rechts klicken CSV\Speichern als CSV and abspeichern.

Alles gut?

Andreas.

Hallo,

vielen Dank für deine Nachricht.

Wann tritt der Fehler auf?

Zu welcher Version von Microsoft Office 2016 wurde eine Lizenz erworben?

Wo wurde die Lizenz erworben?

Der Code sollte für Deine Zwecke ausreichend funktionieren.

Deine E-Nr enthalten teilweise pro Zeile mehrere Bezeichnungen, manche sogar abgekürzt. Das musst Du selber korrigieren, mach einfach 2 Zeilen daraus bei gleicher E-Nr.
Andreas.
Option Explicit

Sub ENummernEinfaerben()

  Dim R As Range

  Dim Data, Delimiter

  Dim i As Long, j As Long, k As Long

  Dim Dict As Object 'Scripting.Dictionary

  Dim Key As String

  Delimiter = Array(",", ";", ".", ":", "-", "_", "(", ")", "[", "]", "!", "?", "*", "/")

  With Worksheets("E Nr")

    'Alle E-Nummern

    Set R = .Range("A2", .Range("A" & Rows.Count).End(xlUp))

    Set R = R.Resize(, 2)

    'Einlesen

    Data = R.Value

  End With

  'Daraus ein Dictonary erstellen für den schnellen Zugriff

  Set Dict = CreateObject("Scripting.Dictionary")

  Dict.CompareMode = vbTextCompare

  For i = 1 To UBound(Data)

    For j = 1 To UBound(Data, 2)

      Key = Trim$(Data(i, j))

      If Not Dict.Exists(Key) Then Dict.Add Key, 0

    Next

  Next

  With Worksheets("Artikelliste ")

    'Jede Zelle in Spalte D

    For Each R In Range("D2", Range("D" & Rows.Count).End(xlUp))

      'Einlesen

      Data = R.Value

      'Suche nach einem "E"

      i = InStr(1, Data, "E")

      'Gefunden?

      Do While i > 0

        'Die nächsten gültigen Zeichen scannen

        j = i + 1

        Key = Trim$("E" & ValidWhile(j, Data, " 0123456789"))

        'E-Nummer vorhanden?

        If Dict.Exists(Key) Then

          'Ja, einfärben

          R.Characters(i, Len(Key)).Font.Color = vbRed

        End If

Skip:

        'Nächstes "E" suchen

        i = InStr(j, Data, "E", vbTextCompare)

      Loop

      Data = R.Value

      For i = 0 To UBound(Delimiter)

        Data = Replace(Data, Delimiter(i), " ")

      Next

      Data = Split(Data)

      For k = 0 To UBound(Data)

        Key = Data(k)

        If Dict.Exists(Key) Then

          i = InStr(1, R.Value, Key)

          Do While i > 0

            R.Characters(i, Len(Key)).Font.Color = vbRed

            i = InStr(i + 1, R.Value, Key)

          Loop

        End If

      Next

    Next

  End With

End Sub

Private Function ValidWhile(ByRef Start As Long, ByVal s As String, ByVal Delims As String, _

    Optional ByVal Compare As VbCompareMethod = vbTextCompare) As String

  'Returns the substring of S from Start while a delimiter is found

  Dim i As Long

  If Start < 1 Then Exit Function

  For i = Start To Len(s)

    If InStr(1, Delims, Mid$(s, i, 1), Compare) = 0 Then Exit For

  Next

  ValidWhile = Mid$(s, Start, i - Start)

  Start = i

End Function