Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro: Spalten ausblenden, wenn...

Makro: Spalten ausblenden, wenn...
21.03.2016 22:23:12
Justus
Liebes Forum,
trotz vieler Stunden im Archiv gelingt es mir nicht, in meine Excel-Liste ein Makro einzufügen, dasfolgendes macht:
Userbild
Wenn in Zelle A2 der Name "Firma 1" steht, dann blende ab Spalte E alle Spalten (bis unendlich) aus, bei denen in Zeile 1 nicht die Worte "Firma 1" stehen.
Wie lautet hierfür der Code?
Wo in meiner Tabelleist dieser eizufügen?
Besten Dank im Voraus!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Spalten ausblenden, wenn...
21.03.2016 23:27:27
Gerd
Hallo Justus!
Zu a)
Sub Makro3()
Dim X As Long
For X = Columns.Count To 5 Step -1
Columns(X).Hidden = Not Cells(1, X) Like Cells(2, 1) & "*"
Next
End Sub
Zu b) Google nach "wo und wie fügt man Code ein" oder ähnlichem.
Gruß Gerd

Anzeige
AW: Makro: Spalten ausblenden, wenn...
27.03.2016 21:33:56
Justus
Hallo Gerd L,
Zuerst ein Entschuldigung für die lange Sendepause.
Der Code funktioniert, Danke!

Wie ist der Code für folgenden Wunsch weiterzuentwickeln?:

In Zelle A2 ist ein DropDown-Menü mit
Firma 1
Firma 2
Firma 3
alle
Wenn ich "Firma 2" auswähle, sollen analog wie bei "Firma 1" die nicht betroffenen Spalten ausgeblendet werden.
Wenn ich "alle" auswähle, sollen alle Spalten wieder eingeblendet werden.
Wer kann mir bitte helfen?
Ein Dankeschön im Voraus!
Gruß Justus

Anzeige
AW: Makro: Spalten ausblenden, wenn...
28.03.2016 00:44:46
Christoph
Hallo Justus,
ich habe den Ansatz von Gerd mal erweitert.
Im Reiter Daten DropDown kannst du die DropDown-Liste erweitern
https://www.herber.de/bbs/user/104627.xlsm
Gruß Christoph

AW: Makro: Spalten ausblenden, wenn...
28.03.2016 07:38:38
Justus
Hallo Christoph,
funktioniert prima,
herzlichen Dank!
Gruß Justus
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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