|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo fehler1
If Not Intersect(Target, Range("C2,H2,F37,F43,C5:E35")) Is Nothing Then
Application.EnableEvents = False
With Target
If Not IsNumeric(.Value) Then GoTo fehler1
If IsEmpty(Target) Then
Target.Value = ""
GoTo fehler1
End If
.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
' funkt am besten
' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
.NumberFormat = "[hh]:mm"
End With
End If
fehler1:
Application.EnableEvents = True
End Sub
NUN WILL ICH IN F47 If Not Intersect(Target, Range("F47"))
.Value = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2) HABEN DAS ICH 100:00 STD HABE
und in c5:c35 wenn ich frei =Frtei ;urlaub =Urlaub und feiertag=Feiertag aber in c5:c35 kommen auch uhrzeiten rein
hoffe mir kann da einer helfen danke schonmal |