|
Hallo Zusammen,
ich bin blutige Anfängerin und habe nun eine Aufgabe in einer Arbeit bei der ich gerade verzweifel.
Ich soll im Userform eine Schaltfläche und eine Checkbox einfügen. Bei der Schaltfläche soll eine Aufforderung kommen, einen Zahlenbetrag einzugeben und die Checkbox rechnet 5% Provision dazu.
Ich habe für die Aufforderung eine InputBox gemacht (es steht nichts von neuer Textbox da, deshalb nehme ich an, es muss mit einer InputBox gearbeitet werden). Soweit funktioniert auch alles ganz gut und das Ergebnis stimmt aber nun soll auch noch eine MsgBox kommen wenn die Eingabe ein Text oder leer ist. Egal, was ich versuche es kommen Fehlermeldungen. Wie gehe ich das am besten an?
Ich bete nicht darum, dass mir jemand die Arbeit abnimmt, nur vielleicht um einen Lösungsansatz. Habe schon versucht Not IsNumeric usw unterzubringen aber bekomme, wie gesagt Fehlermeldungen.
Liebe Grüße,
Lulah
Private Sub btn_Betrageingeben_Click()
Dim eingabe As Double, berechneterWert As Double
eingabe = InputBox("Bitte geben Sie einen Betrag ein!")
If chk_Provision = True Then
berechneterWert = eingabe * (1 + Provision)
MsgBox "Der Wert " & eingabe & " + 5 % Provision lautet: " & _
Format(berechneterWert, "#,##0.00 €"), vbInformation
Else
MsgBox "Der Wert ohne Provision lautet " & Format(eingabe, "#,##0.00 €"), vbInformation
End If
End Sub
|