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
For i = 1 To MaxValue
Worksheets("Tabelle1").Columns("h").Resize(, 4 * i).Hidden = True
Next
Sub Jede4teSpalteAusblenden()
Dim lngSpalte As Long
For lngSpalte = 4 To Columns.Count Step 4
Worksheets("Tabelle1").Columns(lngSpalte).Hidden = True
Next
End Sub
Gruß, NoNetDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen