Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro - Alle Gruppierungen schließen / öffnen

Makro - Alle Gruppierungen schließen / öffnen
29.05.2006 12:15:25
Stefano
Hi,
gibt es eigentlich Makrobefehle welche sagen:
1) Schließe alle Gruppierungen in der Arbeitsmappe
2) Öffne alle Gruppierungen in der Arbeitsmappe
Wäre für eine Antwort sehr dankbar
LG Stefano

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ein Vorschlag
29.05.2006 13:00:46
Mac4
Hi,
versuchs mal hiermit:

Sub Gruppierung_auf()
Dim ws As Object
For Each ws In Worksheets
ws.Activate
If CommandBars.FindControl(ID:=462).Enabled Then
For i = 1 To 7 'Step -1
ws.Outline.ShowLevels RowLevels:=i
Next
Else
MsgBox "Das Blatt enthält keine Gruppierungen!"
End If
Next
End Sub


Sub Gruppierung_zu()
Dim ws As Object
For Each ws In Worksheets
ws.Activate
If CommandBars.FindControl(ID:=462).Enabled Then
For i = 7 To 1 Step -1
ws.Outline.ShowLevels RowLevels:=i
Next
Else
MsgBox "Das Blatt enthält keine Gruppierungen!"
End If
Next
End Sub

Marc
Anzeige
AW: ein Vorschlag
29.05.2006 13:26:45
Stefan
Vielen Dank !!!!
LG Stefan

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige