Um bei der Erfassung von Uhrzeiten (ohne Sekunden) den Doppelpunkt nicht miterfassen zu müssen, mit der rechten Maustaste auf das Register klicken
und dort den Befehl "Code anzeigen" auswählen. Im Codefenster links "Worksheet" und danach rechts "Change" auswählen. Jetzt das nachfolgende
Makro markieren und über die Zwischenablage zwischen die beiden vorgegebenen Zeilen "Private Sub ..." und "End Sub" kopieren.
Dim Eingabebereich As String
Dim Eingabe, Zeitwert
On Error GoTo ChgEvent_Error
Eingabebereich = "A1:G50"
If Not Application.Intersect _
(Target, ActiveSheet.Range(Eingabebereich)) _
Is Nothing _
And _
IsNumeric(Target.Value) _
And _
Target.Cells.Count = 1 Then
Application.EnableEvents = False
Eingabe = Format(Target.Value, "0000")
Zeitwert = _
Left(Format(Eingabe, "0000"), Len(Eingabe) - 2) & _
":" & _
Right(Format(Eingabe, "0000"), 2)
Target.Value = Zeitwert
End If
ChgEvent_Error:
Application.EnableEvents = True
Den Eingabebereich (hier "A1:G50") entsprechend anpassen und den Editor schließen. Excel wird jetzt vierstellige Zahleneingaben im Eingabereich
automatisch in Stunden und Minuten umwandeln.