Checkbox Fehler
25.05.2022 20:17:10
SK1988
Ich bin gerade an einer Aufgabe ran (seit ca 7 stunden?)
Ich habe einen einfachen Code erstellt, dieser soll beim häckchensetzen eine Provision von 5% errechnen. Beim nicht anklicken soll einfach der Betrag erscheinen.
Das alles als Msgbox, soweit funktioniert alles. Wen kein hacken gesetzt ist und ich Buchstaben oder es "leer" lasse, zeigt es mir an das bitte nur Zahlen eingetragen werden sollen. Hab ich aber das Häckchen drin, und versuche das selbe wieder mit Buchstaben und "leer", stürzt es ab mit Laufzeitfehler13 typen unverträglich.
Ich steh kurz davor eine Einsendeaufgabe abzuschicken, aber diese Kleinigkeit hindert mich daran... Ich bin mittlerweile schon verzweifelt.
Hier der Code:
Const Provision As Single = 0.05 ' steht im Allgemein
Private Sub btn_2_Click()
Dim eingabe As Variant
Dim ergebnis As Variant
eingabe = InputBox("Bitte eine Zahl eingeben.")
If Me.chk_box1 = True Then
ergebnis = eingabe * (1 + Provision)
msgbox "Der Wert:" & eingabe & " + 5% Provision lautet: " & Format(ergebnis, "#,##0.00 "), vbInformation
ElseIf Not IsNumeric(Me.chk_box1 = True) Then
msgbox "Bitte geben sie Nur Zahlen ein!!!", vbCritical
ElseIf IsNumeric(eingabe) Then
msgbox "Der wert ohne Provision beträgt: " & Format(eingabe, "#,##0.00 "), vbInformation
Else
msgbox "Bitte geben sie Nur Zahlen ein!!!", vbCritical
End If
End Sub
Ich hoffe jemand kann mir weiterhelfen, damit ich das endlich abschicken kann
mfg
Stefan