Clever-Excel-Forum

Hallo zusammen,

ich will in einer Tabelle mehrere, nicht nebeneinander liegende Spalten ein- bzw. ausblenden. Dazu habe ich mir das Ausblenden von zwei Spalten mit dem Makrorekorder aufgezeichnet und mir das Makro nach dieser Vorlage "zugeschnitten".

So sieht es aus:

Code:
Sub Spalten_ein_und_Ausblenden()

    ActiveSheet.Unprotect 'Password:="xxx"

        If Range("D:D", "J:J", "Q:Q", "U:U").EntireColumn.Hidden = True Then

           Range("D:D", "J:J", "Q:Q", "U:U").EntireColumn.Hidden = False

           Else: Range("D:D", "J:J", "Q:Q", "U:U").EntireColumn.Hidden = True

        End If

    ActiveSheet.Protect 'Password:="xxx"

End Sub

Und das war die aufgezeichnete Vorlage:

Code:
Range("D:D,J:J").Select

    Range("Tabelle14[[#Headers],[LKst/ Std.]]").Activate

    Selection.EntireColumn.Hidden = True

End Sub

Beim Ausführen erhalte ich die Fehlermeldung
[attachment=29808]

Was habe ich falsch gemacht? Den aufgezeichneten Codeschnipsel habe ich lediglich von der Select-Anweisung befreit und zwei weitere Spalten hinzugefügt.

Hi

Versuche es mal so.

Code:
Range("D:D, J:J, Q:Q, U:U")

Gruß Elex

gelöscht, war zu spät.

Hi Elex,

ich habe so oft das Makro und den Schnipsel angesehen und miteinander verglichen - mir sind die überzähligen Gänsefüßchen nicht aufgefallen. Blush

Vielen Dank!

WillWissen

Elex

Klaus-Dieter

WillWissen