Hallo zusammen,

ich habe folgendes Problem und hoffe, dass mir jemand helfen kann:

Ich habe keinerlei Erfahrung was VBA und Programmieren angeht, habe mich aber dennoch versucht, einen Code zu schreiben um mir das automatsiche Ein- und Ausblenden von Tabelllenblättern zu ermöglichen. Unten seht Ihr den Code. Mein Problem ist, dass der Code die Blätter nicht mehr ausblendet (Ab Z.78), die Bedingungen sind doch aber die gleichen? Kann mir jemand helfen, dass der Code gänzlich funktioniert?

Danke vielmals :)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$16" Then
   If Target = "Project audit" Then
      Sheets("Disclaimer Process Audit").Visible = xlHidden
      Sheets("Process Audit").Visible = xlHidden
      Sheets("Findings Process").Visible = xlHidden
      Sheets("GST Comments on Process Audit").Visible = xlHidden
      Sheets("Disclaimer Sustainability Audit").Visible = xlHidden
      Sheets("Sustainability Audit ").Visible = xlHidden
      Sheets("Findings Sustainability").Visible = xlHidden
      Sheets("GST Comments on Sust. Audit").Visible = xlHidden
     
   Else
      Sheets("Disclaimer Process Audit").Visible = True
      Sheets("Process Audit").Visible = True
      Sheets("Findings Process").Visible = True
      Sheets("GST Comments on Process Audit").Visible = True
      Sheets("Disclaimer Sustainability Audit").Visible = True
      Sheets("Sustainability Audit ").Visible = True
      Sheets("Findings Sustainability").Visible = True
      Sheets("GST Comments on Sust. Audit").Visible = True
   
   If Target.Address = "$B$16" Then
   If Target = "Process audit" Then
      Sheets("Disclaimer Project Audit").Visible = xlHidden
      Sheets("Project Audit").Visible = xlHidden
      Sheets("Findings Project").Visible = xlHidden
      Sheets("GST Comments on Project Audit").Visible = xlHidden
      Sheets("Disclaimer Sustainability Audit").Visible = xlHidden
      Sheets("Sustainability Audit ").Visible = xlHidden
      Sheets("Findings Sustainability").Visible = xlHidden
      Sheets("GST Comments on Sust. Audit").Visible = xlHidden
   Else
      Sheets("Disclaimer Project Audit").Visible = True
      Sheets("Project Audit").Visible = True
      Sheets("Findings Project").Visible = True
      Sheets("GST Comments on Project Audit").Visible = True
      Sheets("Disclaimer Sustainability Audit").Visible = True
      Sheets("Sustainability Audit ").Visible = True
      Sheets("Findings Sustainability").Visible = True
      Sheets("GST Comments on Sust. Audit").Visible = True
      
   If Target.Address = "$B$16" Then
   If Target = "Sustainability audit" Then
      Sheets("Disclaimer Project Audit").Visible = xlHidden
      Sheets("Project Audit").Visible = xlHidden
      Sheets("Findings Project").Visible = xlHidden
      Sheets("GST Comments on Project Audit").Visible = xlHidden
      Sheets("Disclaimer Process Audit").Visible = xlHidden
      Sheets("Process Audit").Visible = xlHidden
      Sheets("Findings Process").Visible = xlHidden
      Sheets("GST Comments on Process Audit").Visible = xlHidden
   Else
     Sheets("Disclaimer Project Audit").Visible = True
      Sheets("Project Audit").Visible = True
      Sheets("Findings Project").Visible = True
      Sheets("GST Comments on Project Audit").Visible = True
      Sheets("Disclaimer Process Audit").Visible = True
      Sheets("Process Audit").Visible = True
      Sheets("Findings Process").Visible = True
      Sheets("GST Comments on Process Audit").Visible = True
      
      If Target.Address = "$B$16" Then
   If Target = "Project / process audit" Then
      Sheets("Disclaimer Sustainability Audit").Visible = xlHidden
      Sheets("Sustainability Audit ").Visible = xlHidden
      Sheets("Findings Sustainability").Visible = xlHidden
      Sheets("GST Comments on Sust. Audit").Visible = xlHidden

   Else
      Sheets("Disclaimer Sustainability Audit").Visible = True
      Sheets("Sustainability Audit ").Visible = True
      Sheets("Findings Sustainability").Visible = True
      Sheets("GST Comments on Sust. Audit").Visible = True

      If Target.Address = "$B$16" Then
   If Target = "Project / sustainability audit" Then
      Sheets("Disclaimer Process Audit").Visible = xlHidden
      Sheets("Process Audit").Visible = xlHidden
      Sheets("Findings Process").Visible = xlHidden
      Sheets("GST Comments on Process Audit").Visible = xlHidden
      Else
      Sheets("Disclaimer Process Audit").Visible = True
      Sheets("Process Audit").Visible = True
      Sheets("Findings Process").Visible = True
      Sheets("GST Comments on Process Audit").Visible = True
      
      If Target.Address = "$B$16" Then
      If Targets = "Process / sustainability audir" Then
      Sheets("Disclaimer Project Audit").Visible = xlHidden
      Sheets("Project Audit").Visible = xlHidden
      Sheets("Findings Project").Visible = xlHidden
      Sheets("GST Comments on Project Audit").Visible = xlHidden
      Else
      Sheets("Disclaimer Project Audit").Visible = True
      Sheets("Project Audit").Visible = True
      Sheets("Findings Project").Visible = True
      Sheets("GST Comments on Project Audit").Visible = True
      
     If Target.Address = "$B$16" Then
      If Targets = "Project / process / sustainability audir" Then
      Sheets("Disclaimer Project Audit").Visible = True
      Sheets("Project Audit").Visible = True
      Sheets("Findings Project").Visible = True
      Sheets("GST Comments on Project Audit").Visible = True
      Sheets("Disclaimer Process Audit").Visible = True
      Sheets("Process Audit").Visible = True
      Sheets("Findings Process").Visible = True
      Sheets("GST Comments on Process Audit").Visible = True
      Sheets("Disclaimer Sustainability Audit").Visible = True
      Sheets("Sustainability Audit ").Visible = True
      Sheets("Findings Sustainability").Visible = True
      Sheets("GST Comments on Sust. Audit").Visible = True
      Else
         
      
      
     
      
      
   End If

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub