Hallo Phillip,
hier noch mal ein Update:
Neben Audir war auch einmal ein Leerzeichen hinten dran an einem Sheetnamen (war bestimmt nicht so gemeint), außerdem mal Groß, mal klein geschrieben.
Die Variablen sind zunächst 0 (also xlhidden), da kann man sich das Setzen auch noch sparen:
Private Sub Worksheet_Change(ByVal Target As Range)
'Sub blendet Blätter ein/aus
'Es werden drei Gruppen gebildet, die einzeln umgeschaltet werden können
Dim Wie1 As Integer, Wie2 As Integer, Wie3 As Integer
If Target.Address = "$B$16" Then
Select Case LCase(Target.Value)
Case "project audit": Wie1 = True
Case "process audit": Wie2 = True
Case "sustainability audit": Wie3 = True
Case "project / process audit": Wie1 = True: Wie2 = True
Case "project / sustainability audit": Wie2 = True: Wie3 = True
Case "project / process / sustainability audit": Wie1 = True: Wie2 = True: Wie3 = True
Case Else
End Select
Sheets(Array("Disclaimer Project Audit", _
"Project Audit", _
"Findings Project", _
"GST Comments on Project Audit")).Visible = Wie1
Sheets(Array("Disclaimer Process Audit", _
"Process Audit", _
"Findings Process", _
"GST Comments on Process Audit")).Visible = Wie2
Sheets(Array("Disclaimer Sustainability Audit", _
"Sustainability Audit", _
"Findings Sustainability", _
"GST Comments on Sust. Audit")).Visible = Wie3
End If
End Sub
Viele Grüße
Karl-Heinz
|