Microsoft Excel

Herbers Excel/VBA-Archiv

Formel erweitern | Herbers Excel-Forum


Betrifft: Formel erweitern von: Alfred
Geschrieben am: 26.01.2010 10:49:14

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

  

Betrifft: AW: Formel erweitern von: Hajo_Zi
Geschrieben am: 26.01.2010 10:55:21

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
GrußformelHomepage


  

Betrifft: AW: Formel erweitern von: Alfred
Geschrieben am: 26.01.2010 11:21:21

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


  

Betrifft: AW: Formel erweitern von: Hajo_Zi
Geschrieben am: 26.01.2010 11:27:01

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


  

Betrifft: AW: Formel erweitern von: Alfred
Geschrieben am: 26.01.2010 12:05:18

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


Beiträge aus den Excel-Beispielen zum Thema "Formel erweitern"