Hallo Leute,
ich habe ein Problem ich möchte in Excel die Uhrzeit ohne Doppelpunkt eingeben und damit auch weiter rechnen.
Dafür habe ich folgendes Makro gefunden:
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheet
If Range(Target.Address).NumberFormat = "h:mm" Then
If Len(Target.Value) = 4 Then Target.Value = Mid$(Target.Value, 1, 2) & ":" & Mid$(Target.Value, 3, 2)
If Len(Target.Value) = 3 Then Target.Value = Mid$(Target.Value, 1, 1) & ":" & Mid$(Target.Value, 2, 2)
If Len(Target.Value) = 2 Then Target.Value = "00" & ":" & Mid$(Target.Value, 1, 2)
If Len(Target.Value) = 1 Then Target.Value = "00" & ":0" & Mid$(Target.Value, 1, 1)
End If
End With
Application.EnableEvents = True
End Sub
Das Funktioniert auch so weit, nur bei 1200 zeigt Excel nicht 12:00 an, sondern 0:,5.
Ich weiss wohl das Excel damit meint das 12:00 der halbe Tag ist.
Wie kann man das oben genannte Makro ab ändern damit auch bei 1200 12:00 angezeigt wird.
Habe mich schon dumm und dämlich gesucht und leider habe ich auch keine wirkliche Ahnung von VBA.
Ich danke schon mal. :-)