Jede 5te Spalte aus- oder einblenden

13/07/2015 - 14:48 von Peter Schuerer | Report spam
Hallo Zusammen,

XL2002.
Es soll, beginnend ab Spalte D, jede 5te Spalte aus- oder eingeblendet
werden.

Sub Linie1AusEin()
Dim Spalte As Long
'SchutzAus
Spalte = 4
If Spalte.Hidden = False Then
While Spalte <= 64
Cells(1, Spalte).EntireColumn.Hidden = True
Spalte = Spalte + 5
Wend
Else
While Spalte <= 64
Cells(1, Spalte).EntireColumn.Hidden = False
Spalte = Spalte + 5
Wend
End If
End Sub

Egal was ich versuche, es wird immer "Spalte.Hidden" als Fehler angezeigt.
Hoffe auf Hilfe.

MfG
Peter
 

Lesen sie die antworten

#1 Claus Busch
13/07/2015 - 14:56 | Warnen spam
Hallo Peter,

Am Mon, 13 Jul 2015 14:48:51 +0200 schrieb Peter Schuerer:

Egal was ich versuche, es wird immer "Spalte.Hidden" als Fehler angezeigt.



probiers mal so:

Sub Linie1AusEin()
Dim i As Long
'SchutzAus
For i = 4 To 64 Step 5
Columns(i).Hidden = Not Columns(i).Hidden
Next
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen