Genau so hatte ich es auch gemacht. Ich glaube bei der Übergabe der Variable mache ich ein Fehler. Mein Ergebnis bei hoverboard etc. ist nämlich immer 0.

Ich hatte das Problem noch nie, aber ich habe auch noch nie mit den Option Button gearbeitet. Das wirft mir Meldungen auf mit denen ich überhaupt nichts anfangen kann.

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

Vielen dank :)