MsgBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0
  • MsgBox von Bernd vom 15.04.2002 - 22:35:25
    • Re: MsgBox von Sigi E. vom 15.04.2002 - 23:29:45 (0)
  

Re: MsgBox

von: Sigi E.
Geschrieben am: 15.04.2002 - 23:29:45


Hallo Bernd,

MsgBox "Es sind nur noch " & Format(a, "#,##0.00") & " Euro auf dem
Stempler."

Gruß
Sigi

nach unten

Betrifft: MsgBox
von: Bernd
Geschrieben am: 15.04.2002 - 22:35:25

Hallo,
ich brauche mal wieder Eure Hilfe.
Und zwar habe ich folgenden Code.

Sub beenden()
Dim a As String
Dim msg, MsgTitel As String
a = Range("k3").Value
If a <= 15000 Then
Beep
msg = ("ACHTUNG !!!" _
& vbCrLf & "" _
& vbCrLf & "" _
& "Es sind nur noch " & a & " Euro auf dem Stempler." _
& vbCrLf & "" _
& "Bitte mit 75.000,00 Euro neu Aufladen.")
MsgTitel = "Warnung"
MsgBox msg, vbOKOnly + vbExclamation, MsgTitel
Else
Beep
MsgBox "Es sind noch über 15.000,00 Euro auf dem Stempler", vbOKOnly + vbInformation, "Hinweis auf Restbetrag"
End If
ActiveWorkbook.Save
Application.Quit
End Sub

Nun möchte ich, das in der MsgBox der Wert a nicht so 16259,8 dargestellt wird, sondern so: 16.259,80
vielen dank für Eure Hilfe
cu Bernd
PS. der Wert 16.259,80 ist nur ein Beispiel. Mir geht es um die Formatierung.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "MsgBox"