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.