Hallo!
Ich habe Datumsangaben in folgender Form vorliegen:
19940801
19941203
usw.
Diese Einträge möchte ich nun trennen und zwar so:
1994 0801
1994 1203
habe im Internet folgendes Makro gefunden:
Sub trennen_neu()
Selection.TextToColumns Destination:=Range(„A1“), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1))
End Sub
Damit kann ich immerhin schonmal Text trennen, der durch ein Komma oder eine Leerzeile oder ein Semicolon getrennt ist. Wie kann ich das Makro denn so umschreiben, dass es nach einer vorgegebenen Zeichenlänge trennt? In meinem Fall wäre es ja 4. Bin für Hilfe sehr dankbar,
besten Gruß
Claas