Hallo Bernd,
MsgBox "Es sind nur noch " & Format(a, "#,##0.00") & " Euro auf dem
Stempler."
Gruß
Sigi
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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen