Optionsfelder ein- und ausblenden über Drehfeld

[Fränky]

Hallo,

mal wieder am verzweifeln. Ich hoffe ihr könnt mir helfen.
Habe ein Blatt mit einem Drehfeld (Formularsteuerelement) welches einen Wert in Zelle A1 bei klicken hoch und runter zählt. Zusätzlich habe ich 30 Optionsfelder (ActiveX Steuerelement) die alle den gleichen Gruppenname 'Tabelle1' haben. 

Jetzt möchte ich das bei Klick auf das Drehfeld und Abfrage der Zelle A1 (z.B. A1 Wert =2) alle Optionsfelder ausgeblendet werden bis auf die letzten 3 und dann soll zusätzlich das letzte Optionsfeld angeklickt/aktiviert werden.
Wenn in Zelle A1 der Wert 1 steht sollen alle Optionsfelder sichtbar sein und das Erste aktiviert werden.

Ich hoffe ihr habt ein paar Tipps.

Gruß Fränky

[Kuwer]

Hallo,

weise dem Drehfeld folgendes Makro zu:

Code:

Sub Drehfeld1_BeiAenderung()
  Dim i As Long
  With ActiveSheet
    Select Case .Range("A1").Value
      Case 1
        For i = 1 To 30
          .OLEObjects("OptionButton" & i).Visible = True
        Next i
        .OptionButton1.Value = True
      Case 2
        For i = 1 To 27
          .OLEObjects("OptionButton" & i).Visible = False
        Next i
        For i = 28 To 30
          .OLEObjects("OptionButton" & i).Visible = True
        Next i
        .OptionButton30.Value = True
      Case Else
        For i = 1 To 30
          .OLEObjects("OptionButton" & i).Visible = False
        Next i
        .OptionButton1.Value = False
        .OptionButton30.Value = False
    End Select
  End With
End Sub

Gruß, Uwe

[Fränky]

Hallo Uwe

Perfekt, funktioniert super. Schon wieder vielen Dank Uwe 

Gruß Fränky