VBA: Tabbladen verbergen/tonen op basis van waarde

[Richard Ven]

Goedemiddag,

Op dit moment ben ik bezig met een doorrekening voor projecten. Ik wil met een VBA tabbladen tonen of juist verbergen.

Dit is wat ik op dit moment heb:
Private Sub Tabbladkeuze(ByVal Target As Range)
If [B7] = "Asfalt" Then
Sheets("blad2").Visible = -1 - xlSheetVisible
Sheets("blad3").Visible = 0 - xlSheetHidden
Sheets("blad4").Visible = 0 - xSheetHidden
End If
End Sub

B7 is een dropdown van asfalt, elementen en berm. Als ik asfalt selecteer hoop ik te bereiken dat enkel het tabblad "Asfalt" (blad2) zichtbaar wordt voor de gebruiker. Wanneer ik bovenstaande functie invul komt er na de keuze geen verandering in tabbladen. Heeft iemand een oplossing?

Alvast bedankt!

Groet Richard.

[Voor 87% gewijzigd door Richard Ven op 15-03-2021 15:39]

[g0tanks]

Zoek even op hoe je refereert naar een celwaarde in VBA. Dat is niet door er blokhaken omheen te zetten.

Daarnaast snap ik niet wat - xlSheetVisible en - xSheetHidden doen. Lijkt me dat die stukken overbodig zijn.

[dix-neuf]

Richard Ven schreef op maandag 15 maart 2021 @ 15:35:
Wanneer ik bovenstaande functie invul komt er na de keuze geen verandering in tabbladen. Heeft iemand een oplossing?

Je moet Excel wel meedelen dat er wat moet gebeuren als er een een wijziging in het blad plaatsvindt ('Private sub Worksheett_Change') en best ook nog: alleen als een wijziging van B7 plaatsvindt.

[Lustucru]

g0tanks schreef op maandag 15 maart 2021 @ 15:45:
Zoek even op hoe je refereert naar een celwaarde in VBA. Dat is niet door er blokhaken omheen te zetten.

Het is niet zo wijdverbreid bekend, maar: https://docs.microsoft.co...y-using-shortcut-notation

[Richard Ven]

dix-neuf schreef op maandag 15 maart 2021 @ 16:12:
[...]
Je moet Excel wel meedelen dat er wat moet gebeuren als er een een wijziging in het blad plaatsvindt ('Private sub Worksheett_Change') en best ook nog: alleen als een wijziging van B7 plaatsvindt.

Deze verwijzing heb ik inderdaad toegepast. Ik heb reeds een formule toegepast voor een variabele die regels doet verbergen. Hetzelfde wil ik nu dus met tabbladen. Als ik dan "End Sub'' doe kan ik dezelfde verwijzing niet nogmaals toepassen. Ik neem dan aan dat de tabbladverwijzing boven de "End Sub" moet komen? Ik heb geen idee of het daar anders van wordt.

De verwijzing naar B7 was inderdaad niet goed. Ik heb er nu dit van gemaakt, maar hij functioneert nog steeds niet naar behoren:
If (B7) = ("Asfalt") Then
Sheets("Asfalt").Visible = True
Else
Sheets("Elementen").Visible = False
Else
Sheets("Berm").Visible = False
End If
End Sub

Groet Richard

[dix-neuf]

Richard Ven schreef op maandag 15 maart 2021 @ 16:53:Deze verwijzing heb ik inderdaad toegepast.

Die zie ik toch niet staan. Kies in de vba-editor bij Blad1 aan de rechterkant: Worksheet en daarnaast: Change, dan heb je al het begin en eind van je macro.

[dix-neuf]

Wat uitleg bij The Worksheet_Change event; zie punt 1 op deze webpagina:

https://www.exceltip.com/...-events-in-excel-vba.html

[DVX73]

Ik denk dat je dit zoek:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "B7"
Call Tabbladkeuze(Target.value)
End Select
End Sub

Sub Tabbladkeuze (svalue as string)
Select svalue
Case "Asfalt"
Sheets("blad2").Visible = -1 - xlSheetVisible
Sheets("blad3").Visible = 0 - xlSheetHidden
Sheets("blad4").Visible = 0 - xSheetHidden
Case "Berm"
Sheets("blad2").Visible = 0 - xlSheetHidden
Sheets("blad3").Visible = -1 - xlSheetVisible
Sheets("blad4").Visible = 0 - xSheetHidden
Case else
Sheets("blad2").Visible = 0 - xlSheetHidden
Sheets("blad3").Visible = 0 - xlSheetHidden
Sheets("blad4").Visible = 0 - xSheetHidden
End Select
End sub

Kan zijn dat er nog wat foutjes in zitten.

Het idee is:
De eerste sub wordt uitgevoerd als het werkblad wordt gewijzigd.
Hierbij wordt de cel die wordt gewijzigd als de range Target gedefinieerd.

Vervolgens wordt gekeken welk adres deze cel heeft.
Wanneer deze B7 is dan wordt de volgende sub aangeroepen, hierbij wordt de waarde van deze cel als string meegegeven.

De sub Tabbladkeuze past aan de hand van deze waarde de zichtbaarheid van de tabbladen aan.

[Richard Ven]

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "B7"
Call Tabbladkeuze(Target.value)
End Select
End Sub

Sub Tabbladkeuze (svalue as string)
Select svalue
Case "Asfalt"
Sheets("blad2").Visible = -1 - xlSheetVisible
Sheets("blad3").Visible = 0 - xlSheetHidden
Sheets("blad4").Visible = 0 - xSheetHidden
Case "Berm"
Sheets("blad2").Visible = 0 - xlSheetHidden
Sheets("blad3").Visible = -1 - xlSheetVisible
Sheets("blad4").Visible = 0 - xSheetHidden
Case else
Sheets("blad2").Visible = 0 - xlSheetHidden
Sheets("blad3").Visible = 0 - xlSheetHidden
Sheets("blad4").Visible = 0 - xSheetHidden
End Select
End Sub

Dit lijkt aardig in de richting te gaan waar ik de oplossing wil zoeken. Dan rest mij 1 vraag waar ik denk dat het verkeerd gaat. Ik heb al een worksheet change toegepast mbt tot het verbergen van regels. Wat ik nu volledig heb is dit:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("B23"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "in asfalt": Rows("25:26").EntireRow.Hidden = True
Rows("24").EntireRow.Hidden = False
Case Is = "in elementenverharding": Rows("25").EntireRow.Hidden = False
Rows("24").EntireRow.Hidden = True
Rows("26").EntireRow.Hidden = True
Case Is = "in berm": Rows("24:25").EntireRow.Hidden = True
Rows("26").EntireRow.Hidden = False
Case Is = "Combinatie: in asfalt en elementenverharding": Rows("24:25").EntireRow.Hidden = False
Rows("26").EntireRow.Hidden = True
Case Is = "Combinatie: in asfalt en berm": Rows("25").EntireRow.Hidden = True
Rows("24").EntireRow.Hidden = False
Rows("26").EntireRow.Hidden = False
Case Is = "Combinatie: in elementenharding en berm": Rows("25:26").EntireRow.Hidden = False
Rows("24").EntireRow.Hidden = True
Case Is = "Combinatie: in asfalt, elementenverharding en berm": Rows("200").EntireRow.Hidden = True
Rows("24:26").EntireRow.Hidden = False
Case Is = "Invullen": Rows("24:26").EntireRow.Hidden = False
Rows("200").EntireRow.Hidden = True
End Select
End If
Select Case Target.Address
Case "B7"
Call Tabbladkeuze(Target.Value)
End Select
End Sub


Sub Tabbladkeuze(svalue As String)
Select svalue
Case "Asfaltcollector"
Sheets("Asfaltcollector").Visible = True
Sheets("Kunstgrascollector").Visible = False
Sheets("Asfalt- en kunstgrascollector").Visible = False
Case "Kunstgrascollector"
Sheets("Asfaltcollector").Visible = False
Sheets("Kunstgrascollector").Visible = True
Sheets("Asfalt- en kunstgrascollector").Visible = False
Case Else
Sheets("Asfaltcollector").Visible = True
Sheets("Kunstgrascollector").Visible = True
Sheets("Asfalt- en kunstgrascollector").Visible = True
End Select
End Sub

Ik heb nu enkel geen idee waar het precies verkeerd gaat. Waarschijnlijk in het vaker toepassen van een worksheet change. Ik hoor graag wat ik verkeerd doe

[Arjan90]

Kun je je code niet even in [code] tags toevoegen inclusief de tabs? Dan leest het echt een stuk prettiger. Ik kom er zo zelf bijna niet doorheen of moet het zelf in Excel gaan invoeren om het goed te kunnen lezen. Ik gebruik zelf code=vb zodat hij ook automatisch gearceerd wordt. Dat ziet er dan zo uit:

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Activate
    
    If Not Application.Intersect(Range("B23"), Range(Target.Address)) Is Nothing Then
        Select Case Target.Value
            Case Is = "in asfalt":
                Rows("25:26").EntireRow.Hidden = True
                Rows("24").EntireRow.Hidden = False
            Case Is = "in elementenverharding":
                Rows("25").EntireRow.Hidden = False
                Rows("24").EntireRow.Hidden = True
                Rows("26").EntireRow.Hidden = True
            Case Is = "in berm":
                Rows("24:25").EntireRow.Hidden = True
                Rows("26").EntireRow.Hidden = False
            Case Is = "Combinatie: in asfalt en elementenverharding":
                Rows("24:25").EntireRow.Hidden = False
                Rows("26").EntireRow.Hidden = True
            Case Is = "Combinatie: in asfalt en berm":
                Rows("25").EntireRow.Hidden = True
                Rows("24").EntireRow.Hidden = False
                Rows("26").EntireRow.Hidden = False
            Case Is = "Combinatie: in elementenharding en berm":
                Rows("25:26").EntireRow.Hidden = False
                Rows("24").EntireRow.Hidden = True
            Case Is = "Combinatie: in asfalt, elementenverharding en berm":
                Rows("200").EntireRow.Hidden = True
                Rows("24:26").EntireRow.Hidden = False
            Case Is = "Invullen":
                Rows("24:26").EntireRow.Hidden = False
                Rows("200").EntireRow.Hidden = True
        End Select
    End If
    
    Select Case Target.Address
    Case "B7"
    Call Tabbladkeuze(Target.Value)
    
    End Select
End Sub

Inhoudelijk zou ik echt even terug gaan naar de basis. Bouw één functionaliteit in. Bouw vervolgens de volgende. Testen, testen, testen. Nu "gooi" je heel veel code in één keer op het internet, maar dan is je helpen al een stuk lastiger. Bovendien is het moeilijk om tips te geven. Toch een paar tips die ik je probeer mee te geven. Waarom heb je bovenaan de code "ActiveSheet.Activate" staan? Hij is al geactiveerd, immers het is je actieve sheet.

Daarnaast zou ik bij een verwijzing naar een bereik ook áltijd je worksheet vooraf noemen. Dus bijvoorbeeld ActiveSheet.Rows("200").EntireRow.Hidden ipv Rows("200").EntireRow.Hidden. Zeker als je complexere VBA gaat schrijven ga je jezelf bedanken dat je jezelf dat hebt aangeleerd. Een stuk code om dat bijvoorbeeld te doen is:

Visual Basic:

Set wb = ThisWorkbook
Set ws = ActiveWorksheet

ws.Row("200").EntireRow.Hidden = True

Probeer je code eens te debuggen, ga regel voor regel verwerken (dit doe je in de macro scherm door op F8 te drukken, elke keer dat je F8 drukt ga je naar de volgende regel). In dit geval wordt de code gestart doordat je een actie uitvoert, dan kun je een zgn. "break" (onderbrekingspunt) toevoegen aan je code. Doe dat bijvoorbeeld op de bovenste regel van je code, je kan dit doen door op de regel te gaan staan in de VBA editor en vervolgens op F9 te drukken. De regel wordt dan donkerrood gearceerd. Dan kun je elke stap volgen in je code en kijken wat er precies wel (en niet) gebeurt. Je ziet dan gelijk in de code waar hij is, door bijv. over een variabele/verwijzing te gaan met je muis zie je de waarde die hij heeft.

[DVX73]

Zoals ik het begrijp wil je in 2 gevallen code uitvoeren:
1) wanneer de waarde in b23 gewijzigd wordt
2) wanneer de waarde in B7 gewijzigd wordt

Zoals @Arjan90 aangeeft is het aan te bevelen de code op te knippen.

Dus maakt een aparte sub die b23 afhandelt.

Je krijgt dan zoiets:

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "B7"
Call Tabbladkeuze(Target.value)
Case "B23"
Call yournamehere(Target.value)
End Select
End Sub

[Voor 0% gewijzigd door DVX73 op 17-03-2021 14:32. Reden: soort code vergeten]