Importieren von Gruppenadressen aus einem Excel CSV File

[Theo Guldimann]

Guten Tag
ich tue mich schwer, ein Excel CSV File mit vorbereiteten Gruppenadressen in die ETS6 zu importieren.
Ich erhalte immer die Meldung "Validierung fehlgeschlagen ..."
Bildschirmfoto 2026-02-25 um 09.36.35.png

welchen formalen Bedingungen muss das CSV File entsprechen, damit die ETS6 es akzeptiert?
- CSV UTF-8 (durch Trennzeichen getrennte Datei? Etwas andres bietet mir mein Excel beim abspreichern als CSV File nicht an
- Komma oder Semicolon als Trennzeichen?
- sind Umlaute erlaubt
Habe es sowohl mit Komma und Semikolon probiert, ohne Erfolg
Alle Umlaute entfernt, hat nichts gebracht
Das Excel File hat genau 4 Spalten (3 für die Gruppenadresse, 1 für die Beschreibung)
Braucht es noch ein Spezialzeichen am Schluss jeder Zeile (carriage return aus dem Schreibmaschinenzeitalter)?
Danke für Lösungsvorschläge!


Bildschirmfoto 2026-02-25 um 09.16.15.png Bildschirmfoto 2026-02-25 um 09.21.23.png

[Beleuchtfix]

Mach doch einen Test mit vielleicht 10 GAs, in der ETS erstellen, exportieren und anschließend wieder importieren, Da habe ich schon Probleme gehabt, dass die ETS die eigene Datei nicht lesen konnte, das selbe mit Libre Office ging. In der Exportdatei siehst du dann das richtige Format.
Viel Erfolg, Florian

[Theo Guldimann]

Lieber Florian
danke für den Tip - hat so nach einigem Pröbeln bestens funktioniert.

[Beleuchtfix]

Magst du uns die Fehler mitteilen - dann haben wir auch etwas davon.
Gruß
Florian

[DirtyHarry]

Bessere Erfahrungen habe ich damit, nicht die SpeichernAls-Funktionen zu nutzen, sondern das Schreiben der CSV über VBA zu machen.

Hier mal der dazu relevante Teil:

Open Datei For Output As #1
Set bereich = Range("A1").CurrentRegion
Spalten = Intersect(bereich.SpecialCells(xlVisible), bereich.Rows(1)).Count
Zeilen = Intersect(bereich.SpecialCells(xlVisible), bereich.Columns(1)).Count
For iRow = 2 To Zeilen
    For iCol = 1 To Spalten
            If Cells(iRow, iCol) = "" Then
                sTxt = sTxt & Cells(iRow, iCol).Value & ";"
            Else
                sTxt = sTxt & """" & Cells(iRow, iCol).Value & """" & ";"
            End If
    Next iCol
    ' letztes Trennzeichen entfernen
    sTxt = Left(sTxt, Len(sTxt) - 1)
    Print #1, sTxt
    sTxt = ""
Next iRow​

(schreibt das ganze Tabellenblatt ab Zeile 2 in die Datei)

Die Spalten in der Exceldatei:
Name Hauptgruppe, Name Mittelgruppe, Name Untergruppe, Gruppenadresse

[Fidelis]

Dass du es schmutzig magst, ja OK. Aber VBA???

[LostWolf]

hier stand Mist 😅