Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel erweitern | Herbers Excel-Forum

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
Anzeige
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

Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige