Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zweite Zelle

Forumthread: zweite Zelle

zweite Zelle
Andreas
Hallo,
habe folgenden Code um Tabellenblätter aus und einzuschalten. 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$L$10" Then
Select Case Target.Value
Case "PT1"
Worksheets("G-2-301-3011-2").Visible = False
Worksheets("G-2-301-3011").Visible = True
Case "PVZ"
Worksheets("G-2-301-3011").Visible = False
Worksheets("G-2-301-3011-2").Visible = True
End Select
End If
End Sub

jetzt brauche ich aber eine zweite Zelle um wiederum
Tabellenblätter ein u. aus
klappt aber nicht
bitte um Hilfe.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: zweite Zelle
22.09.2009 12:22:30
Jens
Hallo Andreas
Dann baue doch noch eine Select Case Abfrage drum herum:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address
Case = "$L$10"
Select Case Target.Value
Case "PT1"
Worksheets("G-2-301-3011-2").Visible = False
Worksheets("G-2-301-3011").Visible = True
Case "PVZ"
Worksheets("G-2-301-3011").Visible = False
Worksheets("G-2-301-3011-2").Visible = True
End Select
End If
Case = "$L$11"
'weiterer Code
End Select
End Sub
Gruß aus dem Sauerland
Jens
Anzeige
AW: zweite Zelle
22.09.2009 12:28:04
ptonka
Hallo Andreas,
einfach dasselbe nochmal:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$L$10" Then
Select Case Target.Value
Case "Tab2"
Worksheets("Tabelle2").Visible = False
Worksheets("Tabelle3").Visible = True
Case "Tab3"
Worksheets("Tabelle2").Visible = True
Worksheets("Tabelle3").Visible = False
End Select
End If
If Target.Address = "$L$11" Then
Select Case Target.Value
Case "Tab2"
Worksheets("Tabelle2").Visible = True
Case "Tab3"
Worksheets("Tabelle2").Visible = True
End Select
End If
End Sub
Gruß,
Ptonka
Anzeige
AW: zweite Zelle
22.09.2009 13:06:31
Andreas
Danke klappt
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige