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