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