Microsoft Excel

Herbers Excel/VBA-Archiv

Ausblenden | Herbers Excel-Forum


Betrifft: Ausblenden von: Karsten
Geschrieben am: 14.12.2009 18:05:20

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

  

Betrifft: AW: Ausblenden von: Hajo_Zi
Geschrieben am: 14.12.2009 18:11:16

Hallo Karsten,

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


GrußformelHomepage


  

Betrifft: AW: Ausblenden von: Karsten
Geschrieben am: 14.12.2009 18:18:05

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


  

Betrifft: AW: Ausblenden von: Reinhard
Geschrieben am: 14.12.2009 18:25:37

Hallo Karsten,

Sub nn()
ActiveSheet.Columns.Hidden = True
Columns(1).Hidden = False
Columns(ActiveCell.Column).Hidden = False
End Sub
Gruß
Reinhard


  

Betrifft: AW: Ausblenden von: Karsten
Geschrieben am: 14.12.2009 18:35:38

Danke,

ihr bekommt beide einen Schokoladenweihnachtsmann!

Gruß
Karsten


  

Betrifft: AW: Ausblenden von: Hajo_Zi
Geschrieben am: 14.12.2009 18:30:22

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


Gruß Hajo


  

Betrifft: AW: Ausblenden von: Karsten
Geschrieben am: 14.12.2009 18:35:23

Danke,

ihr bekommt beide einen Schokoladenweihnachtsmann!

Gruß
Karsten


Beiträge aus den Excel-Beispielen zum Thema "Ausblenden"