Gruppe
Ereignis
Problem
Bei Eingaben mit Kommata in Spalte A wird das Komma automatisch in einen Punkt umgewandelt.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
If InStr(Target.Value, ",") Then
Target.NumberFormat = "@"
Target.Value = Application.Substitute(Target.Text, ",", ".")
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub