Zeiteingabe ohne Doppelpunkt
05.01.2004 08:49:50
Ulf Malitz
Ich wünsche Euch ein gesundes neues Jahr
Ich habe einen Code für die Eingabe von Stunden ohne ":".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
'Soll nur bei einer Eingabe in Spalte A wirksam werden:
If Target.Column <> 1 Then Exit Sub
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
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
End With
End Sub
Funktioniert auch ganz gut, solange es größer als eine Stunde ist.
Ich möchte aber auch gerne "00:10" eingeben können.
Der Code ist nicht meine Erfindung, den habe ich irgendwo mal gefunden.
Ich hoffe Ihr könnt mir helfen
Im voraus schon mal vielen Dank
Ulf