Tabblad verbergen/ laten verschijnen

[Marco999]

Hallo,

Ik wil graag een (handmatig) verborgen tabblad automatisch laten verschijnen als de waarde van een cel bijvoorbeeld 2 wordt. Als deze cel weer een andere waarde krijgt moet het tabblad weer worden verborgen.
Iemand een idee hoe ik dit moet aanpakken??

 

[Wigi]

Iemand een idee hoe ik dit moet aanpakken??

Ja, met een Worksheet_change event in VBA. Doe maar de nodige inspiratie op in andere topics als dit jou niets zegt

 

[Roncancio]

Als een 2 wordt ingevuld in cel A1 dan is werkblad Blad2 zichtbaar.
Bij een andere waarde wordt het werkblad verborgen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing And Target.Value = 2 Then
    Worksheets("Blad2").Visible = True
Else
    Worksheets("Blad2").Visible = False
End If
End Sub

De code kan je plaatsen door met je rechtermuisknop op de tabnaam te klikken en te kiezen voor Programmacode Weergeven.

Met vriendelijke groet,


Roncancio

 

[Marco999]

Kijk, dat werkt perfect! Hartelijk dank.
Nu zit ik nog met een probleem in bijgaand bestandje, als ik via de combobox een tabblad wil laten verschijnen/verbergen lukt het niet...
Enig idee?
Bekijk bijlage Tabblad verbergen.xls

 

[Roncancio]

Kijk, dat werkt perfect! Hartelijk dank.
Nu zit ik nog met een probleem in bijgaand bestandje, als ik via de combobox een tabblad wil laten verschijnen/verbergen lukt het niet...
Enig idee?
Bekijk bijlage 61381

Zo werkt het wel.

Sub Keuze_BijWijzigen()

Worksheets(3).Visible = False
Worksheets(4).Visible = False
    
If Worksheets("Blad2").Range("A3").Value = 2 Then Worksheets(3).Visible = True
If Worksheets("Blad2").Range("A3").Value = 3 Then Worksheets(4).Visible = True


End Sub

Met vriendelijke groet,


Roncancio

 

[Marco999]

Nou, bij mij doet 'ie nog niets hoor!

Bekijk bijlage Tabblad verbergen2.xls

 

[Roncancio]

Bij mij zo wel!

Met vriendelijke groet,


Roncancio

 

[Marco999]

Mijn dank is groot !! :thumb:

Groeten,
Marco