Clever-Excel-Forum

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

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

Hallo Uwe

Perfekt, funktioniert super. Schon wieder vielen Dank Uwe

Gruß Fränky

Fränky

Kuwer

Fränky