Vielen Dank für die Hilfe.
Es gibt nur ein Problem ich bekomme den Fehler "Laufzeitefehler 13" Typen unverträglichkeit.
markiert wird diese Zeile
.Cells(currRow, currCol) = CDbl(Replace(Replace(.Cells(currRow, currCol), "m", ""), ".", ","))