Hallo Forum,
ich habe ein Problem ich versuche einen kleinen Rabatt-Rechner zu verfeinern.
Ich habe eigentlich 3 Ausgaben die ich nun in eine MsgBox per Zeilenumbruch zusammengefasst habe.
Die Ausgabe gefällt mir aber von der Formatierung nicht!
Das ganze ist mit dem befehl vbMsgBoxRight rechts Formatiert, leider auch die Überschrift.
Ich möchte aber nur das der Inhalt der MsgBox rechtsbündig ist!
Hier einmal mein Code:
Dim Listenpreis As Single
Dim Umsatz As Single
Dim Menge As Single
Dim VermU As Single
Dim mwst As Single
Dim Brutto As Single
Const Rabatt20 = 0.8
Const Rabatt10 = 0.9
Const mwst19 = 0.19
Sub Makro1()
' Eingabe
Listenpreis = InputBox("Bitte den Listenpreis in Euro eingeben", "Eingabe Listenpreis")
Menge = InputBox("Bitte die Menge eingeben", "Eingabe Menge")
' Verarbeitung
Umsatz = Listenpreis * Menge
Select Case Umsatz
Case Is > 5000
VermU = Umsatz * Rabatt20
Case Else
VermU = Umsatz * Rabatt10
End Select
mwst = VermU * mwst19
Brutto = VermU + mwst
' Ausgabe
Msgbox ("Der verminderte Umsatz beträgt: " & Format(VermU, "#,##0.00") & vbCrLf & "Die Mehrwertsteuer beträgt: " & Format(mwst, "#,##0.00") & vbCrLf & "Der Bruttobetrag ist: " & Format(Brutto, "#,##0.00")), vbMsgBoxRight
End Sub
Könnt ihr mir vielleicht helfen und mir vielleicht sagen wie ich das vllt pro Zeile formatieren kann, damit die Überschrift nicht betroffen ist?
Ich hoffe ihr könnt mir helfen!
MfG: Spartaner117