HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: Ausblenden | Herbers Excel-Forum

Ausblenden
Karsten

Hallo,
ich möchte per VBA bestimmte Spalten folgendermaßen ausblenden, wobei ich aber an meine Grenzen stosse:
Alle Spalten außer Spalte A und die Spalte, in der sich die aktive Zelle befindet sollen ausgeblendet werden.
Danke im Voraus.
Gruß
Karsten

AW: Ausblenden
Hajo_Zi

Hallo Karsten,
If ActiveCell.Column <> 1 Then Columns(ActiveCell.Column).EntireColumn.Hidden = True

AW: Ausblenden
Karsten

Hallo Hajo,
danke für die schnelle Antwort, aber ich meine es anders.
Es darf nur immer die Spalte A und die Spalte, in der sich die aktive Zelle befindet, drüberbleiben.
Gruß
Karsten
AW: Ausblenden
Reinhard

Hallo Karsten,
Sub nn()
ActiveSheet.Columns.Hidden = True
Columns(1).Hidden = False
Columns(ActiveCell.Column).Hidden = False
End Sub
Gruß
Reinhard
AW: Ausblenden
Karsten

Danke,
ihr bekommt beide einen Schokoladenweihnachtsmann!
Gruß
Karsten
AW: Ausblenden
Hajo_Zi

Hallo Karsten,
Dim InI As Integer
InI = ActiveCell.Column
Columns("B:IV").EntireColumn.Hidden = True
Columns(InI).EntireColumn.Hidden = False
Gruß Hajo
AW: Ausblenden
Karsten

Danke,
ihr bekommt beide einen Schokoladenweihnachtsmann!
Gruß
Karsten