Microsoft Excel

Herbers Excel/VBA-Archiv

Spalten ausblenden per VBA


Betrifft: Spalten ausblenden per VBA von: Günther
Geschrieben am: 22.04.2017 01:00:28

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

  

Betrifft: AW: Spalten ausblenden per VBA von: Hajo_Zi
Geschrieben am: 22.04.2017 08:05:16

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.

GrußformelHomepage


  

Betrifft: AW: Spalten ausblenden per VBA von: Luschi
Geschrieben am: 22.04.2017 08:08:55

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


  

Betrifft: AW: Spalten ausblenden per VBA von: Sepp
Geschrieben am: 22.04.2017 08:52:37

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



  

Betrifft: AW: Spalten ausblenden per VBA von: Günther
Geschrieben am: 22.04.2017 12:48:25

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


  

Betrifft: AW: Spalten ausblenden per VBA von: snb
Geschrieben am: 22.04.2017 17:09:49

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



Beiträge aus den Excel-Beispielen zum Thema "Spalten ausblenden per VBA"