Thema Datum  Von Nutzer Rating
Antwort
03.08.2020 14:31:43 Philipp
Solved
Blau Ein- und Ausblenden von Tabellenblättern
 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:
Werner		 Datum:
03.08.2020 15:50:01		 Views:
1212		 Rating:
     
Antwort:
  Ja
Thema:
Ein- und Ausblenden von Tabellenblättern

Hallo,

hier eine Codezeile von dir:

?
1
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:

?
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
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

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
03.08.2020 14:31:43 Philipp
Solved
Blau Ein- und Ausblenden von Tabellenblättern
 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