Private Sub CommandButton1_Click()
Call OptionButton1_Click
Call OptionButton2_Click
Call OptionButton3_Click
Call OptionButton4_Click
Call OptionButton5_Click
Call OptionButton6_Click
Call OptionButton7_Click
Call OptionButton8_Click
Call OptionButton9_Click
Call OptionButton10_Click
Call OptionButton11_Click
Call BewertungBerechnen(stau, gewicht, sicher, kurz, lange)
End Sub
Private Sub CommandButton2_Click()
Application.Worksheets("Startseite").Range("J5:J9").ClearContents
End Sub
Private Sub OptionButton4_Click()
Dim stau As Integer
If OptionButton4.Value = True Then
stau = 1
OptionButton5.Value = False
OptionButton6.Value = False
End If
End Sub
Private Sub OptionButton5_Click()
Dim stau As Integer
If OptionButton5.Value = True Then
stau = 2
OptionButton4.Value = False
OptionButton6.Value = False
End If
End Sub
Private Sub OptionButton6_Click()
Dim stau As Integer
If OptionButton6.Value = True Then
stau = 3
OptionButton5.Value = False
OptionButton4.Value = False
End If
End Sub
[das gleiche vorgehen bei allen anderen OptionButton ]
Function BewertungBerechnen(stau, gewicht, sicher, kurz, lange)
Dim hoverboard As Integer, onewheel As Integer, pedelec As Integer
Dim ebike As Integer, escooter As Integer
hoverboard = stau + gewicht + sicher + kurz + lang
Range("J5").Value = hoverboard
onewheel = stau + gewicht + sicher + kurz + lang
Range("J6").Value = onewheel
pedelec = stau + gewicht + sicher + kurz + lang
Range("J7").Value = pedelec
ebike = stau + gewicht + sicher + kurz + lang
Range("J8").Value = ebike
escooter = stau + gewicht + sicher + kurz + lang
Range("J9").Value = escooter
End Function