Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

    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
    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
    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

    300 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige