texttocolumns problem
01.06.2007 10:13:00
snoopyine
habe folgendes Problem.
Ich muss in meiner Tabelle die Werte (Zahlen) in der Spalte E in Text umwandeln.
Mache ich das manuelle über Daten -> Text in Spalten.... funktioniert es wunderbar.
Ich möchte es aber mit HIlfe von VBA innerhalb eines größeren Makros umwandeln.
Hier mein Code:
importdatei.Activate
importdatei.Columns("E:E").TextToColumns Destination:=importdatei.Range("E2:E65000"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar :="*", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Es passiert dann folgendes:
Ursprungswert: 192.123,89 nach Durchführung Makro: 192123.89
So kann ich die Daten aber nicht nach Access importiert werden.
Weiß jemand einen Rat?
Nehme an es hat etwas damit zu tun, dass VBA die amerikanische Zahlenschreibweise verwendet. Kann das sein?
Gruß und dank
snoopyine