Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1552to1556
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
Inhaltsverzeichnis

Spalten ausblenden per VBA

Spalten ausblenden per VBA
22.04.2017 01:00:28
Günther
Hi, Excelfreunde
Möchte Spalten mit VBA ausblenden,
Habe schon mit Macro Recorder probiert, klappt aber nur teilweise.
Die anderen Macros waren auch nicht das was ich wollte.
Es sollen nur die Gelben Spalten ausgeblendet werden.
Danke im Vorraus.
https://www.herber.de/bbs/user/113041.xlsm

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden per VBA
22.04.2017 08:05:16
Hajo_Zi
ich kann Dir Leider nicht schreiben was an Deinem Makro falsch ist. Was wohl daran liegt das Deine Datei kein Makro enthält und ich nicht auf fremde Rechner schaue.

AW: Spalten ausblenden per VBA
22.04.2017 08:08:55
Luschi
Hallo Günther,
das geht sO:

Dim sAdr As String
sAdr = "N4:Q4,Z4,Y4:AB4,AJ4:AM4,AU4:AX4," & _
"BF4:BI4,BQ4:BT4,CB4:CE4,CM4:CP4," & _
"CX4:DA4"    'usw.
'ausblenden
Tabelle23.Range(sAdr).EntireColumn.Hidden = True
'wieder einblenden
Tabelle23.Range(sAdr).EntireColumn.Hidden = False
Gruß von Luschi
aus klein-Paris
AW: Spalten ausblenden per VBA
22.04.2017 08:52:37
Sepp
Hallo Günther,
alle Spalten die in Zeile 4 gelb gefärbt sind (colorindex=6) werden aus/ein-geblendet.
https://www.herber.de/bbs/user/113042.xlsm
Gruß Sepp

Anzeige
AW: Spalten ausblenden per VBA
22.04.2017 12:48:25
Günther
Danke für die Anworten.
habe sie beide ausprobiert und beide funzt super.
Der Vorteil von Macro von Sepp, man kann Spalten markieren mit Gelb
und schon werden sie nach Bedarf ausgeblendet.
Fazit: Mann kann hier im Forum noch sehr viel Lernen.
Danke an allen.
Gruß Günther
AW: Spalten ausblenden per VBA
22.04.2017 17:09:49
snb
Noch eine:
Sub M_snb()
sn = Filter([if(mod(column(N1:MA1)-14,11)=0,address(1,column(N1:MA1))&":"&address(1,column(Q1: _
MA1)),"")], "$")
For Each it In sn
Range(it).EntireColumn.Hidden = -1
Next
End Sub

127 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige