Formel erweitern | Herbers Excel-Forum

Forumthread: Formel erweitern

Formel erweitern

26.01.2010 10:49:14

Alfred

Hallo
habe folgende Formel

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$4" Then
Select Case Target.Value
Case "A"
Worksheets("FormB").Visible = False
Worksheets("FormC").Visible = False
Worksheets("FormA").Visible = True
Case "B"
Worksheets("FormA").Visible = False
Worksheets("FormC").Visible = False
Worksheets("AetnaFormB").Visible = True
Case "C"
Worksheets("FormA").Visible = False
Worksheets("FormB").Visible = False
Worksheets("FormC").Visible = True
End Select
End If
End Sub

Jetzt brauche ich ein zweites Felde damit ich
weitere Tabellenblätter ausschalten kann
bekomm ich alleine nicht hin.
"$C$6"
Case "1"
Worksheets("FormD").Visible = False
Worksheets("FormE").Visible = True
Case "2"
Worksheets("FormE").Visible = False
Worksheets("FormD").Visible = True
Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel erweitern

26.01.2010 10:55:21

Hajo_Zi
AW: Formel erweitern

26.01.2010 11:21:21

Alfred
AW: Formel erweitern

26.01.2010 11:27:01

Hajo_Zi
AW: Formel erweitern

26.01.2010 12:05:18

Alfred

AW: Formel erweitern

26.01.2010 10:55:21

Hajo_Zi

Halo Alfred,
ich vermute mal das es ein Schreibfehler ist bei dem einen Tabellennamen. Dann wäre der Code viel zu aufwendig

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$4" Then
Worksheets("FormB").Visible = Target = "A"
Worksheets("FormC").Visible = Target = "B"
Worksheets("FormA").Visible = Target = "C"
elseIf Target.Address = "$C$6" Then
Worksheets("FormD").Visible = Target = 2
Worksheets("FormE").Visible = Target = 1
End If
End Sub

AW: Formel erweitern

26.01.2010 11:21:21

Alfred

Hallo
vielleicht muss ich es besser erklären
wenn C4 A steht soll Tabellenblatt B u. C ausgeblendet sein und A an
wenn C4 B steht soll Tabellenblatt A u. C ausgeblendet sein und B an
wenn C4 C steht soll Tabellenblatt A u. B ausgeblendet sein und C an
geht bis hier super
jetzt brauche ich erst mal eine Erweiterung (später mehrere)
wenn C6 1 steht soll Tabellenblatt E ausgeblendet sein und D an
wenn C6 2 steht soll Tabellenblatt D ausgeblendet sein und E an
ich brauche aber C4 und C6
Ich hoffe es kann jemand helfen
Danke

AW: Formel erweitern

26.01.2010 11:27:01

Hajo_Zi

Hallo Alfred,
Du hast den Code schon gestetet? es waren doich nur die letzten 2 vertauscht.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$4" Then
Worksheets("FormB").Visible = Target = "A"
Worksheets("FormC").Visible = Target = "B"
Worksheets("FormA").Visible = Target = "C"
ElseIf Target.Address = "$C$6" Then
Worksheets("FormD").Visible = Target = 1
Worksheets("FormE").Visible = Target = 2
End If
End Sub

Gruß Hajo

AW: Formel erweitern

26.01.2010 12:05:18

Alfred

Vielen Dank
klappt super
ich hatte nicht alles eingegeben nur den letzten
Teil das ging nicht.
Schönen Tag noch

Beliebteste Forumthreads (12 Monate)

Formel erweitern | Herbers Excel-Forum

Forumthread: Formel erweitern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread