Private
Sub
cmbAbbrechen_Click()
Unload
Me
End
Sub
Private
Sub
CmbBerechnung_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"
Else
Unload
Me
End
If
End
Sub
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
Sub
Private
Sub
TextBox1_Change()
If
TextBox1.Text =
" "
Then
Exit
Sub
anschaffungswert = TextBox1.Value
Range(
"E6"
).Value = anschaffungswert
End
Sub