Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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.

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige