TextToColumns in VBA
11.06.2015 12:06:39
Senna
ich bin gerade auf ein Problem gestoßen, dass ich nicht ganz verstehe.
Wenn ich in einer Exceldatei manuell den Befehl "Text in Spalten" ausführe, dann macht Excel genau das was ich möchte. Jetzt möchte ich das aber automatisieren mit VBA.
In einer Spalte stehen Zahlen teilweise als Text formatiert. Dezimaltrennzeichen ist das Komma und Tausendertrennzeichen der Punkt. Nachdem ich mein Makro ausgeführt habe, ist das Dezimaltrennzeichen auf einmal der Punkt und die Zahl wird nicht als Zahl erkannt.
Hier mein Code:
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E:E"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), DecimalSeparator:=",", ThousandsSeparator:=".", TrailingMinusNumbers:= _
True
Im System ist ebenfalls der Punkt als Tausender- und das Komma als Dezimaltrennzeichen eingestellt.
Vielleicht kann mir ja einer von euch sagen wo mein Fehler liegt.