Hallo,
ich führe ein Haushaltsbuch in Excel. Die einzelnen Ausgaben erfasse ich über eine App auf dem Smartphone und exportiere die Datensätze dann Monatsweise als csv und importiere diese im Excel. Nun möchte ich den Import gern automatisieren mittels VBA, wobei ich hier noch nicht allzuviel Ahnung habe. Probleme bereitet mir die Beträge in ein zahlenformat umzuwandeln. Zuerst teile ich die Daten in Spalten auf, wobei ich Text als Datentyp angebe, sodass die Beträge nicht als Datum fehlinterpretiert werden (Format z.B. 10.84 oder auch nur 7)
Sub Andromoney_konvertieren()
'Text trennen
Columns("A:A").Select
Selection.TextToColumns DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 1), _
Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2 _
), Array(14, 2)), TrailingMinusNumbers:=True
'Punkte durch Komma ersetzen in Beträgen
Columns("C:C").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Format der Währung ändern (Text->Währung)
With Range("C:C")
.NumberFormat = "Double"
.Value = .Value 'Laut einem anderen Forenbeitrag sollte diese Zeile das Problem beheben
End With
Selection.NumberFormat = "#,##0.00 $"
End Sub
Als Ergebnis werden allerdings nur die Zahlen ohne Komma umgewandelt, nicht die Zahlen mit nachkommastellen. Hat jemand eine Idee wie ich alle Zahlen, egal ob mit oder ohne Komma von STrings in Double umwandeln kann?
Danke schonmal
Stefan
|