Tabellenblatt

Forumthread: Tabellenblatt

Tabellenblatt

Alfred

Hallo komme nicht weiter
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Tabellenblatt

Josef
AW: Tabellenblatt

Alfred
AW: Tabellenblatt

Rudi

AW: Tabellenblatt

10.03.2010 14:41:14

Josef

Hallo Alfred,
dazu sollte das genügen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim strTmp As String
  If Target.Address = "$C$4" Or Target.Address = "$C$6" Then
    strTmp = Range("C4") & Range("C6")
    Worksheets("SchubstangenLagerungA24V").Visible = strTmp = "A2"
    Worksheets("SchubstangenLagerungAP1").Visible = strTmp = "A1"
    Worksheets("SchubstangenLagerungB24V").Visible = strTmp = "B2"
    Worksheets("SchubstangenLagerungBP1").Visible = strTmp = "B1"
  End If
End Sub

Gruß Sepp

AW: Tabellenblatt

10.03.2010 14:57:06

Alfred

Vielen Dank
klappt super

AW: Tabellenblatt

10.03.2010 14:48:09

Rudi

Hallo,
evtl so?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$4" Or Target.Address = "$C$6" Then
Sheets("SchubstangenLagerungA24V").Visible = False
Sheets("SchubstangenLagerungAP1").Visible = False
Sheets("SchubstangenLagerungB24V").Visible = False
Sheets("SchubstangenLagerungBP1").Visible = False
Select Case Range("C4") & Range("C6")
Case "A1": Worksheets("SchubstangenLagerungA24V").Visible = True
Case "A2": Worksheets("SchubstangenLagerungAP1").Visible = True
Case "B1": Worksheets("SchubstangenLagerungB24V").Visible = True
Case "B2": Worksheets("SchubstangenLagerungBP1").Visible = True
End Select
End If
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabellenblatt

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread