Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
800to804
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

24h plus-Format in MsgBox

24h plus-Format in MsgBox
20.09.2006 08:44:45
ronny
Hallo liebe Excel-VBA-Gemeinde,
ich habe folgendes Problem mit der MsgBox.
Wie lässt sich ein wert aus A1, der größer als 1 ist ausgeben im Zeitformat 24h plus.
Soll heissen: ich möchte in der MsgBox den Wert 1,5 im Format „[h]:mm“ Anzeigen lassen. (36:00).
Mit folgendem Befehl geht das nicht:
MsgBox Format(Range("A1").Value, "[h]:mm")
Kann mir bitte jemand aus seinem Erfahrungsschatz heraus helfen?
Gruß ronny

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 24h plus-Format in MsgBox
20.09.2006 09:48:04
ChrisL
Hallo Ronny
So gehts...
MsgBox WorksheetFunction.Text(Range("A3").Value, "[h]:mm")
Gruss
Chris
AW: 24h plus-Format in MsgBox
20.09.2006 10:00:36
ronny
hallo chris,
vielen dank für deine lösung.
funktioniert super.
gruß ronny
AW: 24h plus-Format in MsgBox
20.09.2006 09:51:10
ANdreas
Hallo Ronny,
anbei mein Vorschlag:

Private Function GetNumberFormat _
(c As Range, sFormat As String) As String
Dim sOriginal$
' nur eine Zelle
If c.Cells.Count > 1 Then Exit Function
With c
sOriginal = .NumberFormat ' bestehendes Format merken
.NumberFormat = sFormat ' gewünschtes Format setzen
GetNumberFormat = .Text ' Text aus Zelle auslesen
.NumberFormat = sOriginal ' ursprüngl. Format wieder setzen
End With
End Function

Sub BeispielMakro()
MsgBox GetNumberFormat(Range("A1"), "[h]:mm")
End Sub
Gruß
Andreas
Anzeige
AW: 24h plus-Format in MsgBox
20.09.2006 10:02:06
ronny
hallo andreas,
chris hat eine simple, einfache lösung gefunden.
trotzdem vielen, vielen dank für dein e mühe.
gruß ronny

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige