Blad verbergen

[snb]

Hoezo Combobox ?
In het voorbeeld slechts een validatielijst

Hou het simpel:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Sheets("Blad2").Visible = Not Target = "Jan en Sjaan"
    Sheets("Blad3").Visible = Not Target = "Piet en Frida"
  End If
End Sub

 

[Ron321]

Bedankt, in mijn voorbeeldbestand werkt dit maar in mijn originele bestand zit achter dat blad al een Private Sub Worksheet_Change(ByVal Target As Range) dus krijg ik een melding dat er een dubbelzinnige naam is gevonden.

 

[Wigi]

Dan moet je die Worksheet_Change(ByVal Target As Range) codes integreren tot 1 geheel.

 

[Ron321]

Maar het gaat om verschillende cellen die verschillende dingen moeten doen, kan dat dan ook?

 

[Wigi]

Ja.

 

[Ron321]

Dat gaat me helaas boven m'n pet.

 

[jjr333]

Ron123, hierbij een voorbeeld:

Private Sub Worksheet_Change(ByVal Target As Range)

'changed Master Activity List AB
If Not Application.Intersect(Target, Range("MasterAB")) Is Nothing Then
ThisWorkbook.Worksheets("Parameters").Range("cChangeActList") = True
End If

'changed contents Bewoner Data
If Not Application.Intersect(Target, Range("BewDataAB")) Is Nothing Then
Range("E4:F4").Interior.ColorIndex = 3
End If

End Sub

 

[Ron321]

Bedankt, ik was al wat aan het proberen geweest maar kwam er niet uit.
Zal hier eens mee spelen.

 

[Ron321]

Kom er helaas niet uit, weet te weinig van vba.
Maar toch bedankt voor de moeite.