Hallo,
hier eine Codezeile von dir:
If Targets = "Process / sustainability audir" Then
Das heißt aber Target und nicht Targets
Zudem steht da ..... audir du meinst aber wohl ....audit
Teste mal:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$16" Then
Select Case Target
Case "Project audit"
Sheets("Disclaimer Process Audit").Visible = IIf(Target = "Project audit", True, False)
Sheets("Process Audit").Visible = IIf(Target = "Project audit", True, False)
Sheets("Findings Process").Visible = IIf(Target = "Project audit", True, False)
Sheets("GST Comments on Process Audit").Visible = IIf(Target = "Project audit", True, False)
Sheets("Disclaimer Sustainability Audit").Visible = IIf(Target = "Project audit", True, False)
Sheets("Sustainability Audit ").Visible = IIf(Target = "Project audit", True, False)
Sheets("Findings Sustainability").Visible = IIf(Target = "Project audit", True, False)
Sheets("GST Comments on Sust. Audit").Visible = IIf(Target = "Project audit", True, False)
Case "Process audit"
Sheets("Disclaimer Project Audit").Visible = IIf(Target = "Process audit", True, False)
Sheets("Project Audit").Visible = IIf(Target = "Process audit", True, False)
Sheets("Findings Project").Visible = IIf(Target = "Process audit", True, False)
Sheets("GST Comments on Project Audit").Visible = IIf(Target = "Process audit", True, False)
Sheets("Disclaimer Sustainability Audit").Visible = IIf(Target = "Process audit", True, False)
Sheets("Sustainability Audit ").Visible = IIf(Target = "Process audit", True, False)
Sheets("Findings Sustainability").Visible = IIf(Target = "Process audit", True, False)
Sheets("GST Comments on Sust. Audit").Visible = IIf(Target = "Process audit", True, False)
Case "Sustainability audit"
Sheets("Disclaimer Project Audit").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("Project Audit").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("Findings Project").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("GST Comments on Project Audit").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("Disclaimer Process Audit").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("Process Audit").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("Findings Process").Visible = IIf(Target = "Sustainability audit", True, False)
Sheets("GST Comments on Process Audit").Visible = IIf(Target = "Sustainability audit", True, False)
Case "Project / process audit"
Sheets("Disclaimer Sustainability Audit").Visible = IIf(Target = "Project / process audit", True, False)
Sheets("Sustainability Audit ").Visible = IIf(Target = "Project / process audit", True, False)
Sheets("Findings Sustainability").Visible = IIf(Target = "Project / process audit", True, False)
Sheets("GST Comments on Sust. Audit").Visible = IIf(Target = "Project / process audit", True, False)
Case "Project / sustainability audit"
Sheets("Disclaimer Process Audit").Visible = IIf(Target = "Project / sustainability audit", True, False)
Sheets("Process Audit").Visible = IIf(Target = "Project / sustainability audit", True, False)
Sheets("Findings Process").Visible = IIf(Target = "Project / sustainability audit", True, False)
Sheets("GST Comments on Process Audit").Visible = IIf(Target = "Project / sustainability audit", True, False)
Case "Process / sustainability audit"
Sheets("Disclaimer Project Audit").Visible = IIf(Target = "Process / sustainability audit", True, False)
Sheets("Project Audit").Visible = IIf(Target = "Process / sustainability audit", True, False)
Sheets("Findings Project").Visible = IIf(Target = "Process / sustainability audit", True, False)
Sheets("GST Comments on Project Audit").Visible = IIf(Target = "Process / sustainability audit", True, False)
Case "Project / process / sustainability audit"
Sheets("Disclaimer Project Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Project Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Findings Project").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("GST Comments on Project Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Disclaimer Process Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Process Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Findings Process").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("GST Comments on Process Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Disclaimer Sustainability Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Sustainability Audit ").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("Findings Sustainability").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Sheets("GST Comments on Sust. Audit").Visible = IIf(Target = "Project / process / sustainability audit", True, False)
Case Else
End Select
End If
End Sub
Gruß Werner
|