Hallo Community,
ich habe folgendes Problem: Nach dem Import einer CSV Datei liegen meine Währungswerte als Text in der Tabelle. "-3,79". Um mit den Daten arbeiten zu können, benötigt es eine Umwandlung.
Diese habe ich mit folgendem Befehl umgesetzt:
Das Skript funktioniert auch sehr gut, solange man den Befehl kein Zweites mal ausführt. Dann fängt er an die Komma und Punkte durcheinander zu bringen.
Im ersten Durchlauf erkennt er die Kommawerte korrekt (Deutsches Zahlenformat). Ab dem zweiten geht er dummerweise nach US Standard vor. Wie kann ich das verhindern?
Ich weiß, dass in VBA alle Zahlen und Datumswerte nach US Standard behandelt werden. Nur hilft mir das grade auch nicht weiter...
Viele Grüße
ich habe folgendes Problem: Nach dem Import einer CSV Datei liegen meine Währungswerte als Text in der Tabelle. "-3,79". Um mit den Daten arbeiten zu können, benötigt es eine Umwandlung.
Diese habe ich mit folgendem Befehl umgesetzt:
Quellcode
- IntStartRow = Cells(Rows.Count, 1).End(xlUp).Row 'Weil Rows.Count nur Murks zurückliefert
- ActiveSheet.Range("I7:I" & IntStartRow).TextToColumns Destination:=Range("I7"), _
- DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
- Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
- FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
- ActiveSheet.Range("I7:I" & IntStartRow).Style = "Currency"
Das Skript funktioniert auch sehr gut, solange man den Befehl kein Zweites mal ausführt. Dann fängt er an die Komma und Punkte durcheinander zu bringen.
Werte nach Import | Nach Durchlauf 1 | Nach Durchlauf 2+ |
"-0,99" | - 0,99 € | -0.99 |
"-19,90" | - 19,90 € | -19.9 |
"-46,99" | - 46,99 € | -46.99 |
"-302,26" | - 302,26 € | -302.26 |
Im ersten Durchlauf erkennt er die Kommawerte korrekt (Deutsches Zahlenformat). Ab dem zweiten geht er dummerweise nach US Standard vor. Wie kann ich das verhindern?
Ich weiß, dass in VBA alle Zahlen und Datumswerte nach US Standard behandelt werden. Nur hilft mir das grade auch nicht weiter...
Viele Grüße
Wer nichts weiß ist nicht Dumm sondern unwissend!
VB.NET Neueinsteuger... aber natürlich immer in "Option Explicit" - sonst lernt man nit!
VB.NET Neueinsteuger... aber natürlich immer in "Option Explicit" - sonst lernt man nit!