Thema: Makro für Excel

[Aturo]

Hallo Leute, kann mir vielleicht jemand mit einem Makro aushelfen ich bin schon langsam am durchdrehen.

Ich möchte in einer csv datei die vom Großhändler kommt aus dem EK den VK berechnen.
Mein grösstes Problem ist das die preise mit punkt statt komma getrennt sind und deswegen keine einzige Formel funktioniert( zumindest bei mir. )

Habe zwar ein Makro gefunden

Option Explicit
Sub berechnen()
Dim s As Integer
Dim vk As Double
For s = 2 To Range("A65536").End(xlUp).Row
    vk = (Cells(s, 4) + 3) + (Cells(s, 4) + 3) * 0.1 + _
    ((Cells(s, 4) + 3) + (Cells(s, 4) + 3) * 0.1) * 0.16
    Cells(s,8).NumberFormat = "#,##0.00 $"
    Cells(s,8) = vk
   
Next s
End Sub

Das Makro ignoriert aber den punkt komplett
Beispiel EK = 45.05 | VK = 5.752,21 €
Die Summe wird aus 4505 errechnet und nicht aus 45,05

Hoffe es kann mir jemand helfen