Guten Tag!
Ich bin gerade an einer Aufgabe, ganz einfach eigentlich...
Ich soll mit einer checkbox 5% provision rechnen lassen. Soweit funktioniert auch alles.
Aber ich bekomme es nicht mehr hin, das bei der Eingabe "leer" oder "buchstaben" meine msgbox öffnet mit der Meldung das bitte nur Zahlen eingegeben werden sollen. In anderen Aufgaben hatte ich die Probleme nicht. Hier steh ich komplett auf den Schlauch.
Private Sub btn_2_Click()
Dim eingabe As Single
eingabe = InputBox("Bitte eine Zahl eingeben.")
Ergebnis = eingabe / (1 + Provision)
If Me.chk_box1 = True Then
msgbox "Der Wert:" & eingabe & " + 5% Provision lautet: " & Ergebnis, vbInformation
ElseIf eingabe Then
msgbox "Ihr wert ohne Provision beträgt: " & eingabe, vbInformation
Else
msgbox "Bitte geben Sie eine Zahl ein!!!", vbCritical
End If
End Sub
Danke schonmal für die Antworten!
|