Ich habe dieses tolle Makro bei Hans gefunden und habe noch ein kleines Problem. Wenn ich die Zahl 1234567 eingebe soll Zeit 1:23:45,67 daraus einstehen. h:mm:ss,00
Könnt ihr mir helfen, ich kriege das nicht hin?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sTxt As String
If Target.Column <> 4 Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
sTxt = Target.Value
If sTxt Like "######" Then
Target.NumberFormat = "hh:mm:ss"
Target.Value = TimeSerial( _
Left(sTxt, 2), _
Mid(sTxt, 3, 2), _
Right(sTxt, 2))
Else
Target.NumberFormat = "hh:mm:ss"
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Vielen Dank!
Rolf