Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.09.2025 21:34:46
VBA - Sharepoint den Pfad der lokalen Synchronisation ermitt
30.09.2025 18:32:19
Summewenn nach Anzahl der Vorkomnisse
30.09.2025 14:57:32
Werte aus einem Vergleich von zwei spalten in dritte Spalte
30.09.2025 13:37:26
als Text gespeicherte Zahlen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden von Tabellenblättern

Forumthread: Ausblenden von Tabellenblättern

Ausblenden von Tabellenblättern
30.07.2004 08:32:46
Tabellenblättern
Ich schon wieder,
erstmal Dank an meine Helfenden...
Aber! Die Lösungsvorschläge funzen, sind aber nicht die Lösung für meine letzte Anfrage.
Man kann (darf) die Abfrage der Tabelle 1 und 2 ... nicht in einer Zelle verankern.
Da die "x"e unterschiedlich gesetzt werden können. Siehe dazu nocheinmal mein Beispiel: https://www.herber.de/bbs/user/9066.xls
Es ergeben sich ja so verschiedene Kombinationsmöglichkeiten.
Bei "x" zu Tabelle2 soll diese ausgeblendet werden, wenn " " wieder sichtbar.
Bei "x" zu Tabelle3 soll diese ausgeblendet werden, wenn " " wieder sichtbar.
...
Bitte nocheinmal um Hilfe.
Grüße, Alex.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden von Tabellenblättern
Tabellenblättern
Hallo Alex!
Das nachstehende Makro gehört in das Tabellenblatt-Modul von "Tabelle1"; also nicht in ein normales Standard-Modul:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TbN As Byte
If Intersect(Range("B1:B4"), Target) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
TbN = Target.Row + 1
If Target.Value = "x" Then
Worksheets("Tabelle" & TbN).Visible = xlVeryHidden
ElseIf Target.Value = "" Then
Worksheets("Tabelle" & TbN).Visible = True
End If
End Sub

Zu diesem Tabellenblatt-Modul gelangst Du u.a. so:
1. Mache einen Rechtsklick auf die entsprechende Tabellenblattbezeichnung (Lasche)
2. "Code anzeigen" anklicken
3. Das Makro in die große weiße Fläche auf der rechten Seite kopieren
4. Zurück zum normalen Excel: Alt + Q
5. Fertig
Viel Erfolg wünscht
WernerB.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige