Hallo Ritchie,
für dich dürfte die Option FieldInfo interesant sein.
Damit kann man (siehe auch Hilfe) die Formatierung der Spalten anpassen.
Das ganz kann man auch aufzeichen, muss aber beim "Text in Spalten" Befehl die 3 Schritte im Dialogfenster auch richtig durchgehen.
Wenn du "Text in Spalten" aufrufst hat man im 3. Schritt die Möglichkeit für jede Spalte die Formatierung anpassen.
Dort muss man dann von Standard auf Datum umstellen.
Aufgezeichnet sieht es dann so aus.
Selection.TextToColumns Destination:=Range("A15"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 4)), TrailingMinusNumbers:=True
Wie gesagt ist dann die FieldInfo die Option die das steuert, in dem fall dann die 4 beim "2. Array"
|