Puuuhh
Nach sehr langen ausprobieren habe ich den Fehler gefunden.
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 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
Die berechnung " ergebnis = eingabe * (1+ Provision)
musste in die Spalte unter If Me.chk_box1 = True Then
weil sie nur dann "rechnen" soll wen die checkbox ein hacken hat.
Jetz funktioniert es nach 5 Stunden endlich :D
Danke nochmal für Ihre Hilfe!!
mfg Sk1988
|