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

Forumthread: jede vierte Spalte ausblenden

jede vierte Spalte ausblenden
Dave
Hallo ihr,
ich möchte gerne jede Vierte Spalte ausblenden, habe einen Code, bei dem ich immer jeweils 4 Spalten ausblende:
For i = 1 To MaxValue
Worksheets("Tabelle1").Columns("h").Resize(, 4 * i).Hidden = True
Next

Weiss jemand weiter?
Grüße, DAve
Anzeige

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

Betreff
Benutzer
Anzeige
VBA : Jede vierte Spalte ausblenden
25.01.2010 14:00:06
NoNet
Hallo Dave,
so geht's :
Sub Jede4teSpalteAusblenden()
Dim lngSpalte As Long
For lngSpalte = 4 To Columns.Count Step 4
Worksheets("Tabelle1").Columns(lngSpalte).Hidden = True
Next
End Sub
Gruß, NoNet
AW: VBA : Jede vierte Spalte ausblenden
25.01.2010 14:28:35
Dave
Hi NoNet,
vielen Dank Dir!
Grüße, Dave
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige