TextToColumns Komma macht Ärger
01.02.2023 11:18:23
Max
ich habe folgendes Problem beim Konvertieren von Text in Spalten:
Mir liegt ein .csv-Export aus einem ERP-System vor:
16.12.2022;AR-12008548-0022;100914;SWBG Achsträger;VT-Sichtprüfun; 2;St; 0;;.P.....B..;ja; 10,00;Min; 0,00;Min
19.12.2022;AR-12008194-1723; 98945;Seitenklappe, ge;VT-Sichtprüfun; 4;St; 0;;.P....MB..;ja; 16,00;Min; 0,00;Min
Wenn ich klassisch in Excel den Befehl Text in Spalten ausführe, funktioniert alles. Nun möchte ich mittels VBA eine kleine AUtomatisierungslösung bauen wobei das Komma in der zweiten Zeile bewirkt, dass sämtliche Informationen nach dem Komma dieser Zeile verschwinden. Das Ergebnis wäre also:
16.12.2022 AR-12008548-0022 100914 SWBG Achsträger VT-Sichtprüfun 2 S 0 P.....B.. ja 10
19.12.2022 AR-12008194-1723 98945 Seitenklappe
Mein Code sieht wie folgt aus:
Range("A1:A999").TextToColumns _
Semicolon:=True, _
Space:=False, _
Comma:=False, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True
Was mache ich falsch?