habe bei dem folgenden Code von Hajo aus der Recherche ein Problem:
Bei Löschbefehl (nicht einzelne Zelle) sondern z.B. A1:Z50
stellt sich Application.EnableEvents auf False.
Wie kann ich das verhindern?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 23 Or Target.Address = "$K$9" Then
Dim s%, m%
Application.EnableEvents = False
With Target
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = 0
m = .Value
End If
.Value = s & ":" & m
End If
End With
Application.EnableEvents = True
End If
End Sub
Vielen Dank und noch einen schönen Abend
Gruß
Felix