NumberFormat in MsgBox einbinden

[ynckprn]

Hallo zusammen,

wie bekomme ich es hin, dass ich innerhalb einer MsgBox einen Zellwert mit NumberFormat umformatiere?


Sub Textfeld()
    MsgBox "Wir rechnen " & Range("H16").Value And .NumberFormat = "0.00" & " an XXX ab.", vbOKOnly, "PakVer"
End Sub

Range H16 ist in dem Fall eine Formel (H10*1,2) welche als Ergebnis meistens Dezimalzahlen mit vier bis fünf Nachkommastellen ausgibt. Ich möchte aber, dass als Ergebnis immer nur zwei Nachkommastellen ausgegeben werden, da es sich um einen Geldbetrag handelt. Und dieses Ergebnis soll dann mit den zwei Nachkommastellen in die MsgBox eingebunden werden.



Sub ExMwSt()
    Application.Run "'Tyco Expressberechnung.xlsm'!PreisExMwSt"
    Application.Run "'Tyco Expressberechnung.xlsm'!ExMwStText"
    Application.Run "'Tyco Expressberechnung.xlsm'!Logi"
    Application.Run "'Tyco Expressberechnung.xlsm'!LogiPreis"
    Application.Run "'Tyco Expressberechnung.xlsm'!Textfeld"
End Sub
Sub ExMwStText()
    Range("H8").Value = "DHL Express rechnet an XXX folgenden Preis ohne MwSt ab."
End Sub

Sub Logi()
    Range("H14").Value = "XXX rechnet an XXX folgenden Preis ab. (PakVer)"
End Sub

Sub LogiPreis()
    Range("H16:L18").Activate
    ActiveCell.Value = "=H10*1.2"
    ActiveCell.NumberFormat = "0.00"
End Sub

Sub PreisExMwSt()
    Range("H1:L12").Activate
    ActiveCell.Value = "=(B3*0.19-B3)*-1"
    ActiveCell.NumberFormat = "0.00"
End Sub


Die Mappe habe ich angehangen.


Bei Fragen, gerne fragen.


Vielen Dank und schöne Grüße
Yannick P.

[Elex]

Hi

MsgBox Round(Range("H16"), 2)

Gruß Elex

[HKindler]

Hi,

für beliebige Formate:

MsgBox Format(Range("H16"), "0.00")