Zeiteingabe ohne Doppelpunkt, nur Minuten
26.04.2005 10:57:50
Josef
ich habe in der Recherche zwar was gefunden, aber so richtig funzt es noch nicht. Also, es müssen Zeiten erfasst werden und da wäre es schön, wenn man nur die 5 eingeben muss und diese dann direkt als 00:05:00 formatiert wird oder 50 und dann 00:50:00 usw.
Folgenden Code habe ich angepasst, aber der streikt noch:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h%, m%, s%
'Soll nur bei einer Eingabe in Spalte AB und G wirksam werden:
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 7 Then
If InStr(Target.Text, ":") > 0 Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm:ss"
If Len(.Value) > 2 Then
'h = Right(.Value, Len(.Value) - 2)
m = Left(.Value, Len(.Value) - 4)
s = Left(.Value, 6)
Else
h = 0
s = .Value
m = 0
End If
.Value = m & ":" & s
End If
End With
End If
End Sub
Tja, wäre schön, wenn einer den korrigieren könnte.
Danke schön.
Grüsse
Josef
Anzeige