20.10.2020, 15:29
Hallo zusammen!
Mittels eines VBA Codes möchte ich in einer Spalte die als Text vorliegenden Zahlen in tatsächliche Zahlen umwandeln:
Dabei möchte ich dass eine Dezimalzahl immer mit dem Lokalen Trennzeichen umgewandelt wird. Wenn ich nichts definiere wandelt Excel mir bei diesem Code 23,99 in 23.99 um. Es wird also die Amerkikanische Umwandlung verwendet.
Ich dachte eigentlich dass ich den obrigen Code nur um ", Local:=True" ergänzen müsste, leider scheint das nicht zu gehen.
Wie kann ich meinen Code ergänzen, dass Excel bei der Umwandlung einer als Text vorliegenden Zahl das lokal eingestellte Trennzeichen nimmt?
Danke und Gruß!
Mittels eines VBA Codes möchte ich in einer Spalte die als Text vorliegenden Zahlen in tatsächliche Zahlen umwandeln:
Code:
ThisWorkbook.Worksheets("TEST").Columns("J:J").TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=TrueDabei möchte ich dass eine Dezimalzahl immer mit dem Lokalen Trennzeichen umgewandelt wird. Wenn ich nichts definiere wandelt Excel mir bei diesem Code 23,99 in 23.99 um. Es wird also die Amerkikanische Umwandlung verwendet.
Ich dachte eigentlich dass ich den obrigen Code nur um ", Local:=True" ergänzen müsste, leider scheint das nicht zu gehen.
Wie kann ich meinen Code ergänzen, dass Excel bei der Umwandlung einer als Text vorliegenden Zahl das lokal eingestellte Trennzeichen nimmt?
Danke und Gruß!