Wie fügt man automatisch einen Doppelpunkt zwischen Zahlen ein, um sie in ein Zeitformat umzuwandeln in Excel?

Wenn Sie ein Zeitformat in Arbeitsblattzellen einfügen, haben Sie sich dabei jemals über das ständige Eintippen der Doppelpunkte geärgert? In diesem Artikel werde ich darüber sprechen, wie Sie beim Eingeben von Zahlen einen Doppelpunkt einfügen können, um diese automatisch in ein Zeitformat umzuwandeln in Excel.

Einfügen eines Doppelpunkts zwischen Zahlen, um sie mit Formeln in ein Zeitformat zu bringen

Automatisches Umwandeln von Zahlen in ein Zeitformat beim Eingeben mit VBA-Code

Einfügen eines Doppelpunkts zwischen Zahlen, um sie mit Formeln in ein Zeitformat zu bringen

Angenommen, Sie haben eine Liste von Zahlen und möchten Doppelpunkte einfügen, um sie in ein Zeitformat zu bringen. Die folgenden Formeln können Ihnen dabei helfen.

Wenn die Zahlen immer 3 oder 4 Stellen haben, können Sie diese Formel verwenden:

=ZEIT(LINKS(A1;LÄNGE(A1)-2);RECHTS(A1;2);0), dann ziehen Sie den Ausfüllkursor nach unten in die Zellen, die diese Formel enthalten sollen, und Sie erhalten das folgende Ergebnis, das Sie benötigen:

Wenn die Zahlen 5 oder 6 Stellen haben, wenden Sie bitte diese Formel an:

=(GANZZAHL(A1/10000)&":"&GANZZAHL(REST(A1;10000)/100)&":"&REST(A1;100))+0, und ziehen Sie den Ausfüllkursor nach unten in die Zellen, die diese Formel enthalten sollen, und Sie erhalten die Zahlenfolge wie im folgenden Screenshot dargestellt:

Dann sollten Sie die Zahlen als Zeitformat formatieren, indem Sie auf Zeit aus der Allgemein-Dropdown-Liste unter der Registerkarte Start klicken, siehe Screenshot:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Automatisches Umwandeln von Zahlen in ein Zeitformat beim Eingeben mit VBA-Code

Der folgende VBA-Code kann Ihnen auch helfen, Zahlen automatisch in ein Zeitformat umzuwandeln, wenn Sie sie eingeben. Gehen Sie wie folgt vor:

1. Gehen Sie zum Arbeitsblatt, in dem Sie automatisch Doppelpunkte in Zahlen einfügen möchten.

2. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie Code anzeigen aus dem Kontextmenü. Im erscheinenden Fenster Microsoft Visual Basic for Applications kopieren Sie den folgenden Code und fügen ihn in das leere Modulfenster ein, siehe Screenshot:

VBA-Code: Automatisches Umwandeln von Zahlen in ein Zeitformat:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
    Dim xStr As String
    Dim xVal As String
    On Error GoTo EndMacro
    If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    With Target
        If Not .HasFormula Then
            xVal = .Value
            Select Case Len(xVal)
                Case 1 ' e.g., 1 = 00:01 AM
                    xStr = "00:0" & xVal
                Case 2 ' e.g., 12 = 00:12 AM
                    xStr = "00:" & xVal
                Case 3 ' e.g., 735 = 7:35 AM
                    xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
                Case 4 ' e.g., 1234 = 12:34
                    xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
                Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
                    xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
                Case 6 ' e.g., 123456 = 12:34:56
                    xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
                Case Else
                    Err.Raise 0
            End Select
            .Value = TimeValue(xStr)
        End If
    End With
    Application.EnableEvents = True
    Exit Sub
EndMacro:
    MsgBox "You did not enter a valid time"
    Application.EnableEvents = True
End Sub

Hinweis: Im obigen Code ist A1:A20 der Zellbereich, in dem Sie später die Uhrzeit einfügen möchten, und Sie können die Zellreferenz bei Bedarf ändern.

3. Und jetzt, wenn Sie Zahlen wie 102319 im Zellbereich A1:A20 eingeben und dann die Eingabetaste drücken, wird die Zahl automatisch im Format 10:23:19 AM formatiert, wie Sie es benötigen.