|
hab es nun auf diese weiße versucht,
leider kommt bei jeder eingabe dann nur : 00:00,000 als ergebnis raus.
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheet
If Range(Target.Address).NumberFormat = "mm:ss,000" Then
If Len(Target.Value) = 7 Then Target.Value = Left$(Target.Value, 2) & ":" & Mid$(Target.Value, 3, 2) & "," & Right$(Target.Value, 3)
If Len(Target.Value) = 6 Then Target.Value = Left$(Target.Value, 1) & ":" & Mid$(Target.Value, 2, 2) & "," & Right$(Target.Value, 3)
End If
End With
Application.EnableEvents = True
End Sub
|