Gruppe
Format
Bereich
Automatik
Thema
Automatische Datumformatierung unterdrücken
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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