Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

msgbox Ausgabeformat ändern

Betrifft: msgbox Ausgabeformat ändern von: Franc
Geschrieben am: 08.09.2004 18:13:29

Hi,

ich habe ein kleines Makro

Sub bildpauseanzeigen()

bildrestzeit = (time - Bildpause)

MsgBox (bildrestzeit)

End Sub


Wie erreiche ich es, das die Zeitdifferenz folgendermassen ausgegeben wird.

"Es sind bereits 4 Minuten 34 Sekunden vergangen."

Wenn das nciht geht, würde es ersmal reichen, wenn "Es sind 04:34 Minuten vergangen." dastehen würde.

Momentan wird es als Dezimalzahl ausgegeben.

thx
  


Betrifft: AW: msgbox Ausgabeformat ändern von: Nepumuk
Geschrieben am: 08.09.2004 18:32:48

Hallo Frank,
so geht's:


Sub bildpauseanzeigen()
    MsgBox "Es sind bereits " & CStr(DatePart("n", Time - bildpause)) & " Minuten und " & CStr(DatePart("s", Time - bildpause)) & " Sekunden vergangen.", 64, "Information"
End Sub


Gruß
Nepumuk


  


Betrifft: AW: msgbox Ausgabeformat ändern von: Franc
Geschrieben am: 08.09.2004 19:15:28

danke


 

Beiträge aus den Excel-Beispielen zum Thema "msgbox Ausgabeformat ändern"