Ich habe kaum Vba Kenntnisse, aber ich versuche gerade immer mal wieder kleine Tool zu machen um es zu üben.
Diesesmal brauche ich Auswahlknöpfeü, damit bekomme ich aber die Übergabe der Variablen nicht hin, am ende kommt immer 0 raus. Bisher müsste aber bei allen der gleiche Wert kommen. Wo ist mein Fehler?
Anbei ein Auszug, die Option Button habe ich alle nach dem gleichen Schema gemacht.
Vielen dank schonmal :)
Private Sub CommandButton1_Click()
Call OptionButton1_Click
Call OptionButton2_Click
Call OptionButton3_Click
Call BewertungBerechnen(stau, gewicht, sicher, kurz, lange)
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
....
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