Optionbutton Index variabel gestalten
30.11.2021 17:31:49
Michael
da ich leider nicht fündig geworden bin eröffne ich hier mal eine Frage:
Wie kann ich ich in einer Schleife den Index eine Optionbuttons variabel aufsetzen.
Die Optionbuttons liegen in einem Worksheet und nicht in einer Userform.
Mein bisheriger Code:
Sub Auswerten()
i = 1
j = 3
For m = 1 To 7
OptionAuswahl1 = i
OptionAuswahl1 = i + 1
OptionAuswahl1 = i + 2
If OLEObjects("OptionButton" & OptionAuswahl1).Value = True Then
Worksheets("Tabelle1").Cells(j, 1).Value = 1
ElseIf OLEObjects("OptionButton" & OptionAuswahl2).Value = True Then
Worksheets("Tabelle1").Cells(j, 1).Value = 2
ElseIf OLEObjects("OptionButton" & OptionAuswahl3).Value = True Then
Worksheets("Tabelle1").Cells(j, 1).Value = 3
Else
Worksheets("Tabelle1").Cells(j, 1).Value = 0
End If
i = i + 3
j = j + 1
Next m
End Sub
Ich habe schon verschiedene Sachen ausprobiert, leider immer mit dem gleichen Ergebnis:"Laufzeitfehler 438 : Objekt unterstützt diese Eigenschaft oder Methode nicht"
Ich hänge mal die Test-Datei dazu an.
https://www.herber.de/bbs/user/149489.xlsm
Wäre cool wenn ihr mir da ne einfache Lösung dazu hättet:-)
Ich dachte eig ich bin ganz fit in VBA, aber es zeigt mir doch immer wieder meine Grenzen auf..
Vielen Dank und viele Grüße
Michael