if else statements

[crappy]

Goedenavond

Zelf ben ik niet heel sterk met VBA, zeg maar een beginner.

Normaal werk ik met case regels om regels zichtbaar te maken of te verbergen. Echter kom ik dan aan mijn maximum bereik in het excel bestand.

De situatie is als volgt

ik heb een list in een cel "$D20&" waarin 20 waardes zitten
"maak keuze"
"1980"
"1981"
"1982"

waar ik naar op zoek ben is het volgende

als waarde is "maak keuze" dan regel 21:24 verborgen
elke andere waarde uit de lijst, dan regel 21:21 zichtbaar en regel 22:24 verborgen

wie kan en wilt mij helpen?

Alvast bedankt
Peter

 

[edmoor]

Plaats een voorbeeld bestandje.

En wat bedoel je met maximum bereik in je Excel bestand?

 

[crappy]

nadat ik ongeveer 200 cases in excel heb gezet, geeft excel de waarde terug maximum bereik behaald

er moet dus een kortere manier zijn om deze vergelijking in excel te plaatsen zonder dat ik per regel die ik wil instellen 50 regels code moet neerzetten

Alvast bedankt voor je reactie

groeten
Peter

 

[edmoor]

Zonder voorbeeld heb ik nog niet echt een voorstelling van wat je bedoelt maar ik heb wel het idee dat je case statement anders zou kunnen. Plaatst dus eens een voorbeeld met de case die fout gaat.

 

[crappy]

hieronder een voorbeeld

Case "$B$78"
Select Case Target.Value
Case "maak je keuze"
Range("79:80").Rows.Hidden = True
Case "ambitieus"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "bereidheid om te reizen"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "betrokken"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "collegiaal"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "creatief"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "delegeren"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "discipline"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "durf"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "initiatief nemen"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "inzetbaarheid"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "klantgericht"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "leervermogen"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "mondelingevaardigheden"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "motiverend"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "netwerkvaardigheden"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "omgang met details"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "ontwikkelen medewerker"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "oordeelvormend"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "optreden"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "organisatiegericht aansturen"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "prestatiegericht"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "samenbindend leiderschap"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "samenwerken"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "snel schakelen"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "sociaal"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "stress bestendig"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "taakgericht"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "toegankelijk"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "toegewijd"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "toekomstvisie"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "verander vermogen"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "zelfinzicht"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
Case "zelfstandig"
Range("80:80").Rows.Hidden = True
Range("77:79").Rows.Hidden = False
End Select

met vriendeljke groeten
Peter

 

[Ginger]

Volgens kan dit worden samengevat met slechts 2 regels....

Range("80:80").Rows.Hidden = target.value = "maak je keuze"
Range("77:79").Rows.Hidden = target.value <> "maak je keuze"

 

[edmoor]

Daarom is dus een voorbeeld altijd op z'n plaats. Zet die ook nog even tussen codetags.

 

[crappy]

bedankt voor de hulp, het is helemaal gelukt

groeten
PEter