VBA-Problem mit "Daten - Text in Spalten"
NoNet
ich "kämpfe" gerade mit einem etwas doofen Problem :
Aus einem Sharepoint-Server ziehe ich eine Datei (im Lotus WK3-Format) auf meinen PC und möchte diese umformen. Eine der Spalten enthält Datumsangaben (genauer: Datum+Uhrzeit), mit der man auch operieren (rechnen) kann. Soweit - sogut ! Allerdings werden diese Daten in der Zelle linksbündig angezeigt, obwohl die Spalte als TT.MM.JJJJ hh:mm:ss formatiert ist und und obwohl die horizontale Ausrichtung auf STANDARD steht.
Editiere ich nun eine einzelne Zelle per F2-Taste und bestätige per ENTER, stimmt die Ausrichtung (rechtsbündig). Das kann ich auch für die gesamte Spalte per "Daten - Text in Spalten - Getrennt - Fertigstellen" erreichen.
Doch leider klappt das nicht mehr, wenn ich das per VBA ausführe : Columns("A:A").TextToColumns....
Selbst der zuvor aufgezeichnete Code kann die Spalte nun nicht mehr anpassen.
Was ist da los ? - Wie kann ich den Code abändern, so dass die Spalte auch per VBA umformatiert werden kann ?
Hier der aufgezeichnete Code :
Sub DatumSpalte()
' DatumSpalte Makro
' Makro am 09.12.2009 von NoNet aufgezeichnet
Columns("E:E").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
End Sub
Hier mein "optimierter" Code :Sub DatumSpalteE()
Columns("E:E").TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
Comma:=True, FieldInfo:=Array(1, 4)
End Sub
Hier noch eine Beispiel-Datei (Datumsangaben in Spalte A anstatt Spalte E !) :https://www.herber.de/bbs/user/66462.xls
Ich hoffe, jemand kann mir helfen...
Vielen Dank vorab, Gruß NoNet