For Schleifen alternativ verknüpfen?
10.01.2009 19:54:06
Dave
ich bin's nochmal.
Ich tüftel gerade an 60 OptionButtons (Steuerelemente-Toolbox) herum, dabei habe ich jeweils fünf OB's gruppiert, so dass immer nur einer der fünf OB auf True setzbar ist. Ich versuche eine Hinweismessage auszugeben, sobald mindestens einer der 12 "Optionsgruppen" nicht angeclickt ist.
Bis jetzt habe ich mir folgendes überlegt:
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
Dim i As Integer
For i = 1 To 60 Step 5
If .OLEObjects("OptionButton" & i).Object.Value = False Then
Hinweis.Show
Else
Worksheets("Tabelle2").Select
End If
Next i
End With
End Sub
Jetzt habe ich aber das Problem, dass ich im Zweiflsfall bis zu 12 mal die Box wegclicken muss, wenn ich gar keine Opionsgruppe anclicke!
Man müsste irgendwie die for-schleifen zu Alternativen zusammensetzen können, etwa:
For i=1 To 5 Step 5 Or i=6 To 10 Step 5..... oder
For i=1 To 5 Or i=6 To 10 .....Step 5
irgendwie funktioniert das alles nicht? Kann mir evtl. jemand helfen?
Nochmals vielen Dank!
Dave