Gruppe
Format
Problem
Wenn ich in einem Bereich im Zahlenformat "Text" formatierter Zellen über das Menü BEARBEITEN / ERSETZEN die Kommata durch Punkte ersetze, wird ein Teil der Zahlen als Datum ("Apr 98") formatiert. Wie kann ich das verhindern?
StandardModule: basMain
Sub ReplaceComma()
Dim rng As Range
For Each rng In Range("A1:C2")
If InStr(rng.Value, ",") <> 0 Then
rng.Value = Application.Substitute(rng, ",", ".")
End If
Next rng
End Sub