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
|