Clever-Excel-Forum

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

Hallo,

in einem kleinen Test ging das:

Code:
Sub Main

columns(4).resize(,4).entirecolumn.hidden = true

End Sub

mfg

Perfekt, hat geklappt - DANKE Fennek!

Natürlich auch so:

Code:
Sub Main

  columns(4).resize(,4).hidden = true

End Sub

EasY

Fennek

EasY

snb