Hi ihr lieben,
ich habe folgendes Problem:
Es sollen zur Weiterverarbeitung drei Spalten per VBA in Text umgewandelt werden.
In den Spalten befinden sich: 1Datum, 2Uhrzeit, 3eine Nummer.
Nun will das bei allen klappen, nur bei dem Datum nicht. Das ist komisch, weil wenn ich den Code per Makroaufzeichner aufzeichne, die Formatierung problemlos klappt.
Hier mein Codeausschnitt, Spalte B ist der Übeltäter:
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("b1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("c1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("D:D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Lieben Dank vorab!