Microsoft Excel

Herbers Excel/VBA-Archiv

Spalten ausblenden - Makro

Betrifft: Spalten ausblenden - Makro von: Reto E.
Geschrieben am: 24.08.2004 08:45:57

Hallo,

Ich hätte gerne ein Makro, mit dem ich in allen Tabellenblättern (ausser dem ersten Tabellenblatt) die Spalte I ausblenden / einblenden kann.
Sollte ja nicht alzu schwer sein, oder?

Besten Dank

Reto E.

  


Betrifft: AW: Spalten ausblenden - Makro von: Marcl
Geschrieben am: 24.08.2004 08:52:54

Hi Reto E.,

zum Ausblenden geht das:
Columns("I:I").EntireColumn.Hidden = True
zum Einblenden dann = False
um mehrere Tabellenblätter zu markieren geht:
Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5", "Tabelle6") _
).Select
Kommt drauf an, wie viele Blätter es sind. Ist aber nicht die eleganteste Lösung.

Gruß
Marcl


  


Betrifft: AW: Spalten ausblenden - Makro von: Rene
Geschrieben am: 24.08.2004 08:54:42

hallo reto

probier doch den recorder
markier die seiten dann spalte i
rechtsklick ausblenden
fertig

genauso mit einblenden
gruß rene


  


Betrifft: AW: Spalten ausblenden - Makro von: Roland Hochhäuser
Geschrieben am: 24.08.2004 09:12:12

Hallo Reto E.,
versuch das mal:
Sub EinUndAusblenden()
Dim j As Byte
For j = 2 To Worksheets.Count
    With Worksheets(j).Columns("I")
        .Hidden = Not .Hidden
    End With
Next
End Sub

Gruß
Roland


  


Betrifft: AW: Spalten ausblenden - Makro von: Reto E.
Geschrieben am: 24.08.2004 10:38:14

Besten Dank Euch allen!


 

Beiträge aus den Excel-Beispielen zum Thema "Spalten ausblenden - Makro"