Hab da mal eine Frage an die Gemeinde......
Wie muß ich ein Zeit Feld definieren damit wenn ich z.B nur 7 eintippe es weis das ich 7:00 meine und nicht ein Datum von 1900
Danke im vorraus
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iStd As Integer
Dim iMin As Integer
' soll nur bei einer Eingabe in Spalte A, B, G wirksam werden:
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 7 Then
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
iStd = Left(.Value, Len(.Value) - 2)
iMin = Right(.Value, 2)
Else
iStd = .Value
iMin = 0
End If
If iStd = 24 Then iStd = 0
.Value = iStd & ":" & iMin
End If
End With
End If
End Sub
Gruß Peter