OptionButton auf einem Sheet
Frank
Meine Frage betrifft folgenden Codeschnipsel:
If Sheets("Daten").Range("C6") = Sheets("Daten").Range("C3") Then
Sheets("Daten").OptionButton1 = True
Else
Sheets("Daten").OptionButton1 = False
End If
Auf einer UF befindet sich u. a. eine LisBox. Wird ein darin befindlicher Eintrag ausgewählt, wird ein Wert in eine TextBox geschrieben und dann in das Tabellenblatt - C3. Wenn nun der Wert aus C3 mit dem Wert in C6 übereinstimmt soll der OptionButton1 auf True gesetzt werden. Das funzt auch, sie o. g. Code. Nun befinden sich aber 30 OptionButton auf meinem Sheet und es soll dann immer die selbe Prüfung erfolgen. Also C3 ist fest, ab C6 wird immer dann die nächste Zelle und der nächste Button angesprochen, so zum Bsp.:
If Sheets("Daten").Range("C7") = Sheets("Daten").Range("C3") Then
Sheets("Daten").OptionButton2 = True
Else
Sheets("Daten").OptionButton2 = False
End If
Muss ich nun 30 mal diese If - Anweisung schreiben, oder kann man das in einem Code vereinfachen?
Bin für jede Hilfe dankbar!!!
Gruß Frank H.