Hier meine Lösung:
in DieseArbeitsmappe deklarierstdu folgendes:
Public QmSatz As Long
Den Rest kannst du in deine Userform übernehmen und dort die Namen anpassen:
Private Sub Optionbutton1_Click()
QmSatz = 10
End Sub
Private Sub Optionbutton2_Click()
QmSatz = 20
End Sub
Private Sub Optionbutton3_Click()
QmSatz = 30
End Sub
Private Sub Optionbutton4_Click()
QmSatz = 40
End Sub
Private Sub Optionbutton5_Click()
QmSatz = 50
End Sub
Private Sub Optionbutton6_Click()
QmSatz = 60
End SubPrivate Sub TextBox5_Change()
If TextBox5.Text = " " Then Exit Sub
raumkosten = TextBox5.Value
Range("E13").Value = raumkosten * QmSatz
End Sub
Private Sub CmdBerechnung_Click()
berechnung
End Sub
Private Sub berechnung()
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False And OptionButton4 = False And OptionButton5 = False And OptionButton6 = False Then
MsgBox "Bitte Option wählen"
Exit Sub
Else
MsgBox "OK"
End If
End Sub
Gruß Paul
|