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ß, NoNet