VBA erweitern

[Phoeni]

Guten morgen,
ist es möglich dieses Makro so zu erweitern, das wenn ich das Makro ausführe
sich Spalte J gleichzeitig ausblendet?
Also, C und D einblenden - J ausblenden.
führe ich das Makro erneut aus, soll C und D wieder ausgeblendet und J wieder eingeblendet  werden.


Sub Ein_Aus_blenden_2()
If Columns("c:d").Hidden = True Then
    Columns("c:d").Hidden = False
Else
    Columns("c:d").Hidden = True
End If
End Sub



Danke Gruß Phoeni

[Guschti]

Hallo 

So .....

Code:

Sub Ein_Aus_blenden_2()
If Columns("c:d").Hidden = True Then
    Columns("c:d").Hidden = False
    Columns("j:j").Hidden = True
Else
    Columns("c:d").Hidden = True
    Columns("j:j").Hidden = False
End If
End Sub

Gruss Guschti

[ralf_b]

oder so 

Code:

Sub Ein_Aus_blenden_2()
Columns("c:d").Hidden = Not Columns("c:d").Hidden
Columns("J").Hidden = Not Columns("c:d").Hidden
End Sub

[Phoeni]

He, Danke
so wollte ich haben.
Gruß Phoeni