Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten nach Bedingung ausblenden

Forumthread: Spalten nach Bedingung ausblenden

Spalten nach Bedingung ausblenden
21.08.2004 12:59:20
Andy
Hallo,
ich habe folgendes Problem:
ich habe ein Tabellenblatt in dem ich gerne in Zelle B1 auswählen möchte, welcher Spaltenbereich angezeigt werden soll. In Zelle B1 steht zur Auswahl der Bereich A bis D. Entsprechend habe ich rechts neben dem Auswahlmenü je 10 Spalten mit A, B, C und D als Überschrift beschriftet. Nun soll, wenn in B1 A steht nur die Spalten des Bereich A angezeigt werden (D-M) und alle anderen Spalten N bis AQ solen ausgeblendet werden. Entsprechend soll das ganze auch mit den anderen Bereichen funktionieren: wenn B, dann A,C,D ausgeblendet usw.
Zur Übersicht habe ich eine Tabelle erstellt:
https://www.herber.de/bbs/user/9907.xls
Kann mir jemand weiterhelefn, wie ich das realisieren kann?
Gruß
Andy
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten nach Bedingung ausblenden
Boris
Hi Andy,
folgenden Code in das Codemodul "Tabelle1":
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Address(0, 0) = "B1" Then
For Each C In Range("D1:AQ1")
C.EntireColumn.Hidden = C <> Target
Next
End If
End Sub

Kleiner Hinweis:
Unter xl97 wird mein Vorschlag nicht funktionieren, da in der gegebenen Datei das Worksheet-Change-Ereignis nicht über das Gültigkeitsdropdown ausgelöst wird (klassischer BUG).
Falls du die Anwendung mit xl97 ausschließend kannst - alles o.k.
Falls nicht:
Hinterlege in der Gültigkeitsliste unter "Zulassen - Liste" die Einträge DIREKT - getrennt mit Semikolon (A;B;C;D) - und nicht mit Bezug auf einen Tabellenbereich.
Dann wiederum wird auch bei xl97 das Change-Ereignis ausgelöst (warum auch immer).
Grüße Boris
Anzeige
Danke!
21.08.2004 13:42:50
Andy
Danke Boris,
das funktioniert hervorragend!
Gruß
Andy
;

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