Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: serielle Zahl in Uhrzeit umwandeln

serielle Zahl in Uhrzeit umwandeln
10.07.2020 11:58:33
reiner
hallo Leute,
in einer Zelle steht als Ergebnis: 1,0041666666E-02; als "hh.mm Uhr" umgewandelt entspricht diese Angabe „00:15 Uhr“
nun will ich diesen Wert auf einer UF in einem Label darstellen:
  • frmUserForm.lblMA.Caption = ActiveCell.Offset(0, 11).Value
  • frmUserForm.lblMA.Caption zeigt mir als Ergebnis 1,0041666666E-02
    wie kann ich mittels VBA aus dieser Ziffernfolge das richtige Ergebnis "00:15 Uhr" umwandeln?
    Mfg
    reiner
    Anzeige

    8
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: serielle Zahl in Uhrzeit umwandeln
    10.07.2020 12:05:01
    onur
    frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh.mm Uhr")
    

    AW: serielle Zahl in Uhrzeit umwandeln
    10.07.2020 12:07:51
    Matthias
    Moin!
    Probiere es mal so:
    frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh:mm")
    

    Damit sollte es es richtig formatieren.
    VG
    Anzeige
    AW: serielle Zahl in Uhrzeit umwandeln
    10.07.2020 12:08:08
    Armin
    Hallo Reiner,
    so
    frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value,"hh:mm")
    
    Gruß Armin
    Problem nicht vollständig gelöst
    10.07.2020 14:05:15
    reiner
    danke euch allen,
    es gibt aber noch ein Problem bei der Darstellung, siehe Foto
    Userbild
    Die Uhrzeit 00:15 Uhr wird als 00:15 U0r und 10:50 Uhr wird als 10:50 U10r im Label dargestellt.
    Woran mag das nun wieder liegen?
    Die Uhrzeit 00.15 entspricht seriell: 0,01046666
    die Uhrzeit 10:50 entspricht seriell: 0,45138888
    reiner
    Anzeige
    Problem soeben gelöst
    10.07.2020 14:11:29
    reiner
    mit folgender Schreibweise wird das Wort "Uhr" korrekt angezeigt:
    frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh:mm") & " Uhr"
    
    alles klar
    reiner
    AW: Problem nicht vollständig gelöst
    10.07.2020 14:13:24
    UweD
    Hi
    Ok. Das Uhr steht noch mit in der Zelle
    Ggf so?
    Zeit =replace(ActiveCell.Offset(0, 11).Value," Uhr","")
    frmUserForm.lblMA.Caption = Format(Zeit,"hh:mm")
    

    LG UweD
    Anzeige
    AW: Problem nicht vollständig gelöst
    10.07.2020 14:14:49
    onur
    frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh.mm") & " Uhr"
    AW: Problem nicht vollständig gelöst
    10.07.2020 14:59:29
    Daniel
    Hi
    Wenn du wie gezeigt den Text "Uhr" mit in den Zahlenformatstring aufnimmst, dann solltest du bedenken, dass das "h" dort für die Anzeige der Stunden steht und diese dann auch angezeigt wird.
    Wenn du willst, dass das "h" auch ein echtes "h" ist, musst du das kennzeichnen, entweder indem du den Text "Uhr" in Anführungszeichen setzt:
    "... = Format(..., "hh:mm"" Uhr""")
    

    Oder du kennzeichnest es mit dem Backslash
    ... = Format (..., "hh:mm U\hr")
    

    Dh Anführungszeichen für längere Texte, Backslash für einzelne Zeichen.
    Gruß Daniel
    Anzeige

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Anzeige
    Anzeige

    Infobox / Tutorial

    Serielle Zahl in Uhrzeit umwandeln


    Schritt-für-Schritt-Anleitung

    Um eine serielle Zahl in eine Uhrzeit umzuwandeln, kannst Du die folgende Vorgehensweise nutzen:

    1. Zelle mit serieller Zahl auswählen: Stelle sicher, dass die Zelle mit der seriellen Zahl aktiv ist.

    2. VBA-Formel verwenden: Du kannst die folgende VBA-Formel verwenden, um die Zahl in das Uhrzeitformat zu bringen:

      frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh:mm") & " Uhr"

      Diese Formel formatiert die serielle Zahl korrekt und fügt das Wort "Uhr" hinzu.

    3. Überprüfen der Darstellung: Achte darauf, dass die Darstellung des Labels korrekt erfolgt. Wenn Du Probleme mit der Darstellung hast, siehe den Abschnitt "Häufige Fehler und Lösungen".


    Häufige Fehler und Lösungen

    1. Fehlerhafte Darstellung von "Uhr": Wenn die Uhrzeit als "00:15 U0r" angezeigt wird, könnte das daran liegen, dass die Zahl "Uhr" nicht korrekt behandelt wird. Verwende folgende Formel:

      frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh:mm") & " Uhr"
    2. Zahlenformatierung: Wenn Du die serielle Zahl nicht korrekt umwandelst, überprüfe, ob die Zelle das richtige Zahlenformat hat. Verwende die Funktion Format() korrekt, um die Zahl in eine lesbare Uhrzeit zu konvertieren.

    3. Text in Uhrzeit umwandeln: Wenn Du mit Text arbeitest, der in eine Uhrzeit umgewandelt werden muss, kannst Du die TimeValue()-Funktion verwenden:

      frmUserForm.lblMA.Caption = TimeValue(ActiveCell.Offset(0, 11).Value)

    Alternative Methoden

    Wenn Du keine VBA-Methoden verwenden möchtest, kannst Du auch die Excel-Funktionen direkt in den Zellen verwenden.

    1. Excel-Funktion: Du kannst in einer Zelle die folgende Formel eingeben, um die serielle Zahl in eine Uhrzeit umzuwandeln:

      =TEXT(A1, "hh:mm") & " Uhr"

      Dabei steht A1 für die Zelle mit der seriellen Zahl.

    2. Datum und Uhrzeit umwandeln: Falls Du sowohl ein Datum als auch eine Uhrzeit hast, kannst Du die Formel =TEXT(A1, "dd.mm.yyyy hh:mm") verwenden, um beides darzustellen.


    Praktische Beispiele

    Hier sind einige Beispiele, wie Du die serielle Zahl in eine Uhrzeit umwandeln kannst:

    • Beispiel 1: Wenn die Zelle A1 den Wert 0,010416666 hat, kannst Du die folgende Formel verwenden:

      =TEXT(A1, "hh:mm") & " Uhr"  ' Ergebnis: 00:15 Uhr
    • Beispiel 2: Für eine serielle Zahl wie 0,451388888:

      =TEXT(A1, "hh:mm") & " Uhr"  ' Ergebnis: 10:50 Uhr

    Diese Formeln funktionieren in Excel und helfen Dir, die Zahlen in Uhrzeiten zu konvertieren.


    Tipps für Profis

    • Anführungszeichen in Formatstrings: Wenn Du "Uhr" in die Formatierung integrieren möchtest, setze es in Anführungszeichen:

      frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh:mm"" Uhr""")
    • Verwendung von Backslashes: Alternativ kannst Du auch den Backslash verwenden, um Zeichen in der Formatierung zu kennzeichnen, z.B.:

      frmUserForm.lblMA.Caption = Format(ActiveCell.Offset(0, 11).Value, "hh:mm U\hr")
    • Zahl in Uhrzeit umwandeln: Wenn Du mit sehr großen Zahlen (z.B. E+12) arbeitest, stelle sicher, dass diese vorher in das passende Format konvertiert werden. Nutze dazu Formeln wie =A1/86400 für die Umwandlung von Sekunden in Excel-Zeit.


    FAQ: Häufige Fragen

    1. Wie kann ich eine Excel-Zahl in Uhrzeit umwandeln?
    Verwende die Funktion Format() in VBA oder die TEXT()-Funktion in einer Zelle, um die Zahl korrekt darzustellen.

    2. Was mache ich bei der Darstellung von "Uhr"?
    Achte darauf, dass "Uhr" korrekt in die Formatierung integriert wird, entweder durch Anführungszeichen oder einen Backslash.

    3. Wie gehe ich mit Text um, der in Uhrzeit umgewandelt werden soll?
    Nutze die Funktion TimeValue() oder TEXT() in Excel, um Text in Uhrzeit zu konvertieren.

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige