Hallo zusammen,
ich hab da ein Problem und finde die Lösung nicht ich bekomme dauernd bei der einfachen Berechnung die Meldung Variable nicht Definiert, kann evtl. jemand helfen?
Option Explicit
Private Sub CommandButton2Ende_Click()
End
End Sub
Private Sub CommandButton1Berechnen_Click()
Dim ek, vk, aufschlag As Double
ek = Val(TextBox1.Text)
aufschlag = 0
If OptionButton1Prozent22.Value = True Then
aufchlag = 1.22
ElseIf OptionButton2prozent34.Value = True Then
aufschlag = 1.34
ElseIf OptionButton3Prozent43.Value = True Then
aufschlag = 1.43
Else
antwort = MsgBox("Sie müssen einen Aufschlag auswählen", 0 + vbExclamation, "Achtung")
End If
If aufschlag > 0 Then
vk = ek * aufschlag
Label1Ergebnis.Caption = Format(vk, "#,##0,00 €")
End If
End Sub
|