Microsoft Excel

Herbers Excel/VBA-Archiv

jede vierte Spalte ausblenden | Herbers Excel-Forum


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"