Auswahl_Aetna
B | C | D | |
1 | |||
2 | |||
3 | |||
4 | Form | A | A - B - C |
5 | |||
6 | 1 | 1 | |
7 | 2 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
code:
Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$C$4" Then Worksheets("SchubstangenLagerungA24V").Visible = Target = "A" Worksheets("SchubstangenLagerungAP1").Visible = Target = "A" Worksheets("SchubstangenLagerungB24V").Visible = Target = "B" Worksheets("SchubstangenLagerungBP1").Visible = Target = "B" ElseIf Target.Address = "$C$6" Then Worksheets("SchubstangenLagerungA24V").Visible = Target = "2" Worksheets("SchubstangenLagerungAP1").Visible = Target = "1" Worksheets("SchubstangenLagerungB24V").Visible = Target = "2" Worksheets("SchubstangenLagerungBP1").Visible = Target = "1" End If End Sub
Ich muss wenn A 1 die Auswahl Tabellenblatt "SchubstangenLagerungAP1"
bei A 2 die Auswahl Tabellenblatt "SchubstangenLagerungA24V"
bei B 1 die Auswahl Tabellenblatt "SchubstangenLagerungBP1"
bei B 2 die Auswahl Tabellenblatt "SchubstangenLagerungB24V"
Ich mache im Code einen Fehler kann jemand helfen.
Danke