Spalten mittels Makro ein- und ausblenden

[WillWissen]

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
   

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

[Elex]

Hi

Versuche es mal so.

Code:

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

Gruß Elex

[Klaus-Dieter]

gelöscht, war zu spät.

[WillWissen]

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.

Vielen Dank!