Hallo zusammen,
ich stehe vor einem Rätsel.
Folgendes zur Funktionsweise des VBA-Projektes:
Es besteht eine Arbeitsmappe mit mehreren Tabellen, in denen Daten eingetragen sind. Die Ausführung des betreffenden Makros, erstellt zuerst eines neues Tabellenblatt. In diesem Tabellenblatt werden die Daten aus den anderen Tabellen in einer Übersicht zusammengefasst und dabei diverse Zeilen und Spalten nach bestimmten Kriterien gruppiert (Man kann sich das Ganze wie eine Art Bericht vorstellen). Das neue Tabellenblatt soll nun in eine neue Arbeitsmappe kopiert werden, damit es als separate Datei in einem bestimmten Ordner abgelegt werden kann. Das klappt alles auch wunderbar.
Das Problem besteht nun darin, dass in der neue Datei die Gruppierungen nicht mehr aufgeklappt werden können, da ein Blattschutz besteht. Logischerweise muss durch das setzen von .EnableOutlining = True dies ermöglicht werden.
Dies wird im Makro auch vorgenommen, jedoch kann trotzdem keine Gruppierung mehr auf oder zu geklappt werden. Selbst wenn ich in das neue Excel-File ein Makro integriere, das nichts anderes macht als:
ActiveSheet.EnableOutlining = True '(Blattschutz ist während der Ausführung deaktiviert)
kann weiterhin keine Gruppierung mehr aufgeklappt werden.
Ich stehe hier vor einem großen Rätsel, es kommt mir fasst so vor als würde die Anweisung, dass das Auf- bzw. Zuklappen von Gruppierungen erlaubt werden soll, nicht wahrgenommen werden.
Hier der Code aus dem Makro, der die neue Excel-Datei öffnet, das Blatt verschiebt und den Blattschutz implementiert.
'Neues Workbook erstellen
Set wbNew = Workbooks.Add
wbNew.SaveAs strPfadWBNew & "\" & nameFile & ".xlsx"
Workbooks(nameOldWorkbook).Worksheets(nameOldSheet).Move Before:=wbNew.Sheets(1)
wbNew.Worksheets(nameOldSheet).EnableOutlining = True
wbNew.Worksheets(nameOldSheet).Protect Password:=Hilfsfunktionen.getPasswort(), DrawingObjects:=False, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True, _
UserInterfaceOnly:=True
wbNew.Close SaveChanges:=True