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