VBA Verbergen/ zichtbaar maken rijen obv keuzelijst

Beste mensen,

Ik loop tegen een probleem aan waar ik maar niet uitkom. Ik begin wat gewend te raken met Excel maar ben nog een absolute VBA beginner. Nu wil ik dmv een keuze vakje met 3 mogelijkheden specifieke rijen zichtbaar maken of verbergen. Hoe doe ik dit? Kan iemand mij een zetje in de goede richting geven. Gebruik ik een formulierbesturingselement of juist een ActiveX besturingselement? En hoe zet ik de VBA code op?

Er zijn 3 mogelijkheden:

• ZOEK OP A
• ZOEK OP B
• ZOEK OP C

In beginsel moeten rijen 10:100 verborgen zijn.

Als Zoeken op A word geselecteerd moet RIJ 11:36 zichtbaar worden
Als Zoeken op B word geselecteerd moet RIJ 38:65 zichtbaar worden
Als Zoeken op C word geselecteerd moet RIJ 68:98 zichtbaar worden

Daar kan je bijvoorbeeld dit voor gebruiken:

Op basis van code Edmoor, maar dan in de combobox.

Met een beetje logica (of het logisch indelen van het bestand) kan je ook een heel eind komen.


De combobox kan je natuurlijk op meerdere manieren vullen.

@edmoor en @SjonR Thanks! :thumb: Dat is wat ik zocht.

Alleen waar/ hoe kan ik de selectie aanpassen in de keuzelijst met invoervak??

In het voorbeeld van SjonR staat nu A,B en C. Het lukt mij niet om deze waarden aan te passen.

VenA zei:

Met een beetje logica (of het logisch indelen van het bestand) kan je ook een heel eind komen.

Code:

Private Sub ComboBox1_Change()
  With ComboBox1
    Rows("11:99").Hidden = .ListIndex <> -1
    If .ListIndex <> -1 Then Rows(8).Offset(30 * .ListIndex).Resize(25 + (.ListIndex + 1) * 2 + (.ListIndex = 0) * -2).Hidden = False
  End With
End Sub

De combobox kan je natuurlijk op meerdere manieren vullen.

Code:

Private Sub ComboBox1_GotFocus()
  ComboBox1.List = Split("A B C")
End Sub

Klik om te vergroten...

Ik snap niet wat deze code doet/ hoe ik dit moet lezen. Is deze code beter/ handiger?

De code van VenA verklaren lukt me niet ( te wijten aan mijn kennis, niet aan die van VenA ), maar het aanpassen van je keuzelijst is simpel.

In mijn bestand zie je bij de VBA-editor in ThisWorkbook staan:

Hier kan je de A, B en C dus aanpassen naar wat je zelf wilt hebben en ook dingen toevoegen. Dit werkt bijna gelijk aan wat VenA schreef (SPLIT(("A B C").

voordeel van de Split is dat je minder """""""" en ,,,, hoeft te gebruiken

SjonR zei:

De code van VenA verklaren lukt me niet ( te wijten aan mijn kennis, niet aan die van VenA ), maar het aanpassen van je keuzelijst is simpel.

In mijn bestand zie je bij de VBA-editor in ThisWorkbook staan:

Code:

Private Sub Workbook_Open()
Blad1.ComboBox1.List = Array("A", "B", "C")
End Sub

Hier kan je de A, B en C dus aanpassen naar wat je zelf wilt hebben en ook dingen toevoegen. Dit werkt bijna gelijk aan wat VenA schreef (SPLIT(("A B C").

voordeel van de Split is dat je minder """""""" en ,,,, hoeft te gebruiken

Klik om te vergroten...

:thumb: Thanks :d

Van mij hoeft al dat quoten niet.

Zo heel moeilijk is mijn code niet als je een beetje kan rekenen.

Om een klein beetje uitleg te geven; Elk item in een combobox heeft een indexnummer.(.ListIndex) Als de combobox leeg is dan is dit nummer -1, het eerste item heeft het nummer 0, het tweede item heeft het nummer 1, etc. Met dit nummer kan je gaan rekenen.

zal bij de keuze van A een verschuiving geven 30*0 en bij de keuze van B een verschuiving geven van 30 * 1 etc.
Geeft De waarde FAlSE of TRUE * -2. In VBA is FALSE = 0 en TRUE is -1 vandaar de * -2

Hetzelfde kan je dan ook weer toepassen in

Hoe meer structuur in het bestand hoe eenvoudiger de code kan worden.

Nb. De code is onafhankelijk van wat je in de combobox zet.

Thanks voor de uitleg! Snap nu idd wat de code doet. Echter voor mijn gevoel lijkt de volgende code:


Een stuk makkelijker. Maar dat ligt waarschijnlijk gewoon aan mij . Wat zijn de voordelen van jouw code ten opzichte van deze?

NB. Ik ben nieuw met VBA dus nog niet zo handig hiermee..

Het voordeel ervan is dat je niet afhankelijk bent van de waarden A, B en C en ook niet van het aantal van 3, zolang de logica van de te verbergen delen gelijk blijft.
Het is wellicht nog een stapje te ver voor je als beginner in VBA.

Mijn reactie in #2 doet alleen precies wat je vroeg, zonder de flexibiliteit die het voorbeeld van VenA biedt.