Herbers Excel/VBA-Archiv

jede vierte Spalte ausblenden | Herbers Excel-Forum

• jede vierte Spalte ausblenden von Dave vom 25.01.2010 13:57:16
• VBA : Jede vierte Spalte ausblenden - von NoNet am 25.01.2010 14:00:06
  • AW: VBA : Jede vierte Spalte ausblenden - von Dave am 25.01.2010 14:28:35

Betrifft: jede vierte Spalte ausblenden von: Dave
Geschrieben am: 25.01.2010 13:57:16

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

Betrifft: VBA : Jede vierte Spalte ausblenden von: NoNet
Geschrieben am: 25.01.2010 14:00:06

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

Betrifft: AW: VBA : Jede vierte Spalte ausblenden von: Dave
Geschrieben am: 25.01.2010 14:28:35

Hi NoNet,

vielen Dank Dir!

Grüße, Dave

Beiträge aus den Excel-Beispielen zum Thema "jede vierte Spalte ausblenden"