Hallo Michael,

teste mal:

Public Sub Umwandeln()
Dim rngBereich As Range
Dim rngZelle As Range

'## Tabellenblatt und Spalte an deine Bedürfnisse anpassen
Set rngBereich = Sheets("Tabelle1").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) 'A1 bis letzte in A
'## Tabellenblatt und Spalte an deine Bedürfnisse anpassen
Sheets("Tabelle1").Columns("A:A").NumberFormat = "@" 'Spalte A Format Text

For Each rngZelle In rngBereich
    rngZelle = Replace(rngZelle, ",", ".") 'Komma durch Punkt ersetzen
Next rngZelle
End Sub

Gruß Werner