ich habe zum Spalten ausblenden folgendes Konstrukt angefangen...
Sub ausbl2()
Dim i
Application.ScreenUpdating = False
For i = 2 To 187
With Worksheets("Jan 07")
If .Columns(i).Hidden = False Then .Columns(i).Hidden = True
End With
Next i
Application.ScreenUpdating = True
End Sub
ok..nun sind alle Spalten ab B bis GF ausgeblendet.
Ich möchte aber, dass jede 5. Spalte, beginnend ab B, nicht ausgeblendet wird, bzw. wenn sie es aktuell ist, eingeblendet wird.
Also ein Bastelansatz..
Sub ausbl()
Dim i
Dim x
For i = 2 To 182 Step 5
For x = 1 To 5
Worksheets("Jan 07").Columns(x + i).Hidden = True
Next x
Next i
End Sub
...und ich bastel mir auch noch einen Wolf wenns sein muß, aber ich bekomme diesen blöden "Hüpfer über jede 5. Spalte" einfach nicht hin.
Bis mein Logigzentrum wieder im Dienst ist, hat evtl. vorher jemand hier ein nachsehen ;-)
Bernd