|
Hallo Leute,
Folgender Sachverhalt:
Mein Code liest alle Dateien aus einem Ordner aus und speichert diese in einer Exel-Liste. Diese Liste "zerschneidet" er dann mit "Text in Spalten" packt diesen Namen dann in verschiedene Spalten.
Problem:
Er packt die Namenbestandteile zwar in extra Spalten, das Format ändert er aber bzw hat dann das falsche Format. In meinem jetzigen Fall zerschneidet er das Datum und packt zum Beispiel 03 für den Tag in eine Spalte. Der Wert der dann aber drin ist, ist 3. Ich brauche aber zwingend 03.
Frage:
Ist es möglich den Inhalt gleich im Textformat in die Spalte zu packen, so das ich gleich 03 drin habe?
Selection.TextToColumns Destination:=Range(Cells(1, 1), Cells(letzteZeile, letzteSpalte)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
|