Hallo Community,
ich hoffe Ihr könnt mir helfen, ich habe in einer csv -Datei in einer Zelle Datum und Zeit zusammenstehen und will diese nun mit dem Befehl TexttoColumns trennen. Dabei interessiert mich nur die Zeit.
Der Zellinhalt sieht z.B. so aus: 2011-05-11 18:24:45
Wenn ich manuell in Excel mit TextinSpalten arbeite, klappt die Trennung einwandfrei und ich habe zum Schluss in der Zelle nur noch die korrekte Zeit 18:24:45 stehen.
Nutze ich aber die Makroaufzeichnung und führe den Befehl aus, verändert mir Texttocolumns automatisch das Zeitformat und gibt mir in 2 Spalten die Zeit in AM/PM aus, es ist auch egal wie ich die Zeitformate setze:
Mein Code:
wksDL.Range(Cells(17, 2), Cells(Rows.Count, 2).End(xlUp)).Select
Selection.TextToColumns Destination:=wksDL.Range(Cells(17, 2), Cells(Rows.Count, 2).End(xlUp)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 9), Array(2, 1)), TrailingMinusNumbers:=True
Ich weiß leider nicht weiter und hoffe das ihr mir helfen könnt.
Gruß
Wald
|