Thema Datum  Von Nutzer Rating
Antwort
Rot Ein- und Ausblenden von Tabellenblättern
 03.08.2020 14:31:43 Philipp
Solved
03.08.2020 15:50:01 Werner
NotSolved
03.08.2020 16:02:49 Gast86396
NotSolved
03.08.2020 16:06:46 Werner
NotSolved
03.08.2020 16:21:10 Philipp
NotSolved
04.08.2020 08:53:56 Philipp
NotSolved
03.08.2020 16:04:15 Werner
NotSolved
03.08.2020 16:06:50 Gast42032
NotSolved
03.08.2020 16:47:53 volti
NotSolved
03.08.2020 16:50:32 volti
NotSolved
03.08.2020 17:07:54 Gast25239
NotSolved
04.08.2020 08:44:05 Philipp
NotSolved
04.08.2020 08:45:20 Philipp
NotSolved
04.08.2020 09:09:46 Werner
NotSolved
04.08.2020 09:47:38 Philipp
NotSolved
04.08.2020 13:18:44 volti
NotSolved

Ansicht des Beitrags:
Von:
Philipp		 Datum:
03.08.2020 14:31:43		 Views:
1916		 Rating:
     
Antwort:
 Nein
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 :)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
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

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Ein- und Ausblenden von Tabellenblättern
 03.08.2020 14:31:43 Philipp
Solved
03.08.2020 15:50:01 Werner
NotSolved
03.08.2020 16:02:49 Gast86396
NotSolved
03.08.2020 16:06:46 Werner
NotSolved
03.08.2020 16:21:10 Philipp
NotSolved
04.08.2020 08:53:56 Philipp
NotSolved
03.08.2020 16:04:15 Werner
NotSolved
03.08.2020 16:06:50 Gast42032
NotSolved
03.08.2020 16:47:53 volti
NotSolved
03.08.2020 16:50:32 volti
NotSolved
03.08.2020 17:07:54 Gast25239
NotSolved
04.08.2020 08:44:05 Philipp
NotSolved
04.08.2020 08:45:20 Philipp
NotSolved
04.08.2020 09:09:46 Werner
NotSolved
04.08.2020 09:47:38 Philipp
NotSolved
04.08.2020 13:18:44 volti
NotSolved