Skjule rullemenu

Prøv:

    For Each sh In ActiveWorkbook.Sheets(1).Shapes
        If InStr(LCase(sh.Name), "list") > 0 Then
            sh.Visible = False
        End If
    Next sh

Øhh, kan du uddybe dit forslag?

Eksemepl:

Sub test()
    skjulVis True
   
    skjulVis False

End Sub
Sub skjulVis(sesIkkeses)
   
    For Each sh In ActiveSheet.Shapes
        If InStr(LCase(sh.Name), "list") > 0 Then
            sh.Visible = sesIkkeses
        End If
    Next sh
End Sub

PS: Du skal ikke anvende Svar - det er kun forslagsstiller, der anvender dette, hvis de mener at indlægget er et svar på det stillede spørgsmål.

Ok, jeg fatter ikke noget af det du skriver. Du er tydeligt niveauer over mig vha. Excel, men hvis jeg skal suge på din viden, skal det skæres ud i et letforståeligt sprog.

PS: Svar/kommentar...point taken.

Har skrevet det som en Sub-rutine - idet jeg opfattede at der kunne være flere rullelister, hvis navn jeg ikke kender.

Ligeledes, at disse rullelister stammer fra kontrolelementer.
-------

På basis af disse antagelser kalder jeg subrutinen skjulVis med en parameter, der enten er True eller False - altså skal rullelister vises eller skjules 1)

Da den slags rulleliste er ligger som Shapes i arket - undersøger jeg de shapes, der måtte ligge i arket ") - altså for hver sh (der er af typen Shapes) spørger jeg om navnet indeholder ordet "list" - 3)

Hvis ja - så tildeler jeg sh's synlighed den overført parameters værdi 4)

Fortsætter med næste sh 5)

Sub skjulVis(sesIkkeses) 1)
    For Each sh In ActiveSheet.Shapes                '2)
        If InStr(LCase(sh.Name), "list") > 0 Then    '3)
            sh.Visible = sesIkkeses                  '4)
        End If
    Next sh                                          '5)
End Sub

Enten forstår jeg ikke forslaget, eller også virker det bare ikke.

Rullemenuerne er kontrolelementer og kan ikke ændres i programkoderne (jeg kan i hvert fald ikke).

Det der skal ske er, at når jeg klikker på en knap, så bliver resultatet i cellen G3 enten SAND eller FALSK.
Hvis FALSK så skal cellerne 4 - 31 skjules. Men i de her celler har jeg altså lagt rullemenuer som ikke skjuler sig.

Du er velkommen til at sende filen - @-adresse under min profil.