zweite Zelle

Forumthread: zweite Zelle
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

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.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: zweite Zelle

Jens
AW: zweite Zelle

ptonka
AW: zweite Zelle

Andreas

AW: zweite Zelle

22.09.2009 14: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 14: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

AW: zweite Zelle

22.09.2009 15:06:31

Andreas

Danke klappt