OptionButton mit Schleife aktivieren
02.06.2004 18:10:45
Matthias
ich habe folgendes Problem: Ich möchte mit einer For Next Schleife verschiedene OptionButtons auf einem Arbeitsblatt aktivieren.
Leider bekomme ich mit folgendem Code in Zeile 4 einen Laufzeitfehler 438:
Private Sub reset_Click()
ActiveSheet.Unprotect
For n = 6 To 96 Step 6
ActiveSheet.Controls("OptionButton" & n).Value = True
Next
ActiveSheet.Protect
End Sub
Das wundert mich vor allem deshalb, weil ich diese Syntax schon mehrfach erfolgreich verwendet, und im Archiv die gleiche Schreibweise gefunden habe.
Vielleicht erkennt jemand den Fehler?
Vielen Dank im voraus.
Gruß
Matthias
Anzeige