Er markiert mir immernoch als Fehler die Zeile
Ergebnis = Eingabe * (1 + Provision)
Wen ich auf debuggen klicke wird diese zeile gelb Hinterlegt.
wen ich Dim eingabe as Variant oder String ändere kann er mir anscheind den Wert der eingabe nicht mehr errechnen.
Code sieht so aus:
Private Sub btn_2_Click()
Dim Eingabe As String
Eingabe = InputBox("Bitte eine Zahl eingeben.")
Ergebnis = Eingabe * (1 + Provision)
If Me.chk_box1 = True Then
msgbox "Der Wert:" & Eingabe & " + 5% Provision lautet: " & Format(Ergebnis, "#,##0.00 €"), vbInformation
ElseIf 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
Unterstrichen hab ich die Zeile die beim Debuggen markiert wird.
|