Gruppierung auslesen und danach wieder setzen
08.03.2017 10:27:43
cH_rI_sI
ich habe Zeilen 2-stufig gruppiert und somit 3 Button zum Ändern der Gruppierung; weiters habe ich Makros zum Ein- und Ausblenden von versch. Bereichen - leider ist beim Aktivierung der Makros die ursprünglich eingestellte Gruppierung wieder weg - daher möchte ich gerne prüfen, ob eine Gruppierung vorhanden ist und die ursprüngliche Gruppierung nach dem Aus- und Einblenden bestimmter Zeilen (Bereiche sind via Namen definiert) wieder setzen.
Zum Prüfen, ob eine Gruppierung vorhanden ist, habe ich diesen Code gefunden:
Sub PruefungAufGliederungen()
Dim rngB As Range, rngC As Range, rngR As Range
Set rngB = ActiveSheet.UsedRange
For Each rngR In rngB.Rows
If rngR.OutlineLevel > 1 Then
MsgBox "Zeilengliederungen vorhanden"
Exit For
End If
Next rngR
For Each rngC In rngB.Columns
If rngC.OutlineLevel > 1 Then
MsgBox "Spaltengliederungen vorhanden"
Exit For
End If
Next rngC
End Sub
Sub PLANNED()
Application.ScreenUpdating = False
Range("Masterline").EntireRow.Hidden = True
Range("ACTIVE").EntireRow.Hidden = True
Range("PLANNED").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
Bitte um Eure Unterstützung - Danke!
Glg,
Chrisi