(VBA) - Spalten ausblenden

[EasY]

Hi Leute,

ich benötige mal wieder einen Denkanstoß ... ich möchte mehrere Spalten mittels vba ausblenden lassen, bekomme es jedoch nicht hin.

Code:

Sub Changing()

Dim Spalte As Long
Spalte = ThisWorkbook.ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column


Columns(Spalte).EntireColumn.Hidden = False


End Sub

Nun soll nicht nur die Spalte "Spalte", sondern auch die drei rechts daneben ausgeblendet werden. Wie bekomme ich das in einer Codezeile hin? :(

Danke schonmal im voraus

[Fennek]

Hallo,

in einem kleinen Test ging das:

Code:

Sub Main
columns(4).resize(,4).entirecolumn.hidden = true
End Sub

mfg

[EasY]

Perfekt, hat geklappt - DANKE Fennek!

[snb]

Natürlich auch so:

Code:

Sub Main
  columns(4).resize(,4).hidden = true
End Sub