Text als Zahl
16.08.2022 10:05:59
Fred
Ich ersetze in 6 Spalten Punkt durch Komma
Sub Ersetzen_Punkt()
Dim Zelle As Range
LZ_Depot3 = ThisWorkbook.Sheets("Depot").Cells(Rows.Count, 2).End(xlUp).Row
For Each Zelle In Sheets("Depot").Range("BU11:BZ" & LZ_Depot3)
Zelle.Value = Replace(Zelle.Value, ".", ",")
Next Zelle
End Sub
Nach dem ersetzen sind allerdings die veränderten Zellen weiter als Text formatiert. Gehe ich allerdings in eine der Zellen in die Bearbeitungsleiste und drücke nur die Eingabetaste, wird aus Text eine Zahl.Meine Frage:
Wie kann ich das obere Makro ergänzen, damit der angegebene Bereich nach dem "Ersetzen" als Zahl dargestellt wird?
Gruss
Fred