Laufzeitfehler 5
13.01.2021 15:02:49
Christoph
ich kriege unregelmäßig und nicht reproduzierbar bei folgendem Code immer mal wieder den "Laufzeitfehler 5: ungültige Prozedur oder ungültiges Argument". Dies verhindert folgend die Ausführung des Codes.
>
Der Code dient dazu das bei der Eingabe von Uhrzeiten kein ":" mehr gemacht werden muss.
Ich sehe den Fehler nicht, vielleicht fällt euch ja etwas auf.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabebereich As String
Dim Eingabe, Zeitwert
If Target.Cells.Count > 1 Then Exit Sub
If InStr(Target, ":") Then Exit Sub
Eingabebereich = "c7:d41"
If Not Application.Intersect(Target, ActiveSheet.Range(Eingabebereich)) Is Nothing Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Eingabe = Format(Target.Value, "0000")
Zeitwert = _
Left(Format(Eingabe, "0000"), Len(Eingabe) - 2) & _
":" & _
Right(Format(Eingabe, "0000"), 2)
Target.Value = Zeitwert
End If
End If
Application.EnableEvents = True
End Sub
Danke schonmal für eure Hilfe und viele Grüße
Christoph