Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Ein- und Ausblenden von Tabellenblättern |
03.08.2020 14:31:43 |
Philipp |
|
|
|
03.08.2020 15:50:01 |
Werner |
|
|
|
03.08.2020 16:02:49 |
Gast86396 |
|
|
|
03.08.2020 16:06:46 |
Werner |
|
|
|
03.08.2020 16:21:10 |
Philipp |
|
|
|
04.08.2020 08:53:56 |
Philipp |
|
|
|
03.08.2020 16:04:15 |
Werner |
|
|
|
03.08.2020 16:06:50 |
Gast42032 |
|
|
|
03.08.2020 16:47:53 |
volti |
|
|
|
03.08.2020 16:50:32 |
volti |
|
|
|
03.08.2020 17:07:54 |
Gast25239 |
|
|
|
04.08.2020 08:44:05 |
Philipp |
|
|
|
04.08.2020 08:45:20 |
Philipp |
|
|
|
04.08.2020 09:09:46 |
Werner |
|
|
|
04.08.2020 09:47:38 |
Philipp |
|
|
|
04.08.2020 13:18:44 |
volti |
|
|
Von:
Philipp |
Datum:
03.08.2020 14:31:43 |
Views:
1473 |
Rating:
|
Antwort:
|
Thema:
Ein- und Ausblenden von Tabellenblättern |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Ein- und Ausblenden von Tabellenblättern |
03.08.2020 14:31:43 |
Philipp |
|
|
|
03.08.2020 15:50:01 |
Werner |
|
|
|
03.08.2020 16:02:49 |
Gast86396 |
|
|
|
03.08.2020 16:06:46 |
Werner |
|
|
|
03.08.2020 16:21:10 |
Philipp |
|
|
|
04.08.2020 08:53:56 |
Philipp |
|
|
|
03.08.2020 16:04:15 |
Werner |
|
|
|
03.08.2020 16:06:50 |
Gast42032 |
|
|
|
03.08.2020 16:47:53 |
volti |
|
|
|
03.08.2020 16:50:32 |
volti |
|
|
|
03.08.2020 17:07:54 |
Gast25239 |
|
|
|
04.08.2020 08:44:05 |
Philipp |
|
|
|
04.08.2020 08:45:20 |
Philipp |
|
|
|
04.08.2020 09:09:46 |
Werner |
|
|
|
04.08.2020 09:47:38 |
Philipp |
|
|
|
04.08.2020 13:18:44 |
volti |
|
|