Gruppieren - mehrere Tabellenblätter

[schauan]

Hallöchen,

ActiveSheet ist bzw. wird das erste der Auflistung, im Codebeispiel also das Deckblatt.

Mit dem folgenden Code Sheets("MobiCall_Expert").Activate löst Du allerdings die Selection auf und dieses Blatt wird das selektierte und aktive.

Kann es sein, dass das Blatt beim Aktivieren schon geschützt ist?

[Kuwer]

Hallo,

entferne erst mal alle bisherigen Versuche in allen Modulen.
Dann fügst Du in das Modul DieseArbeitsmappe folgenden Code ein:

Code:

Private Sub Workbook_Open()
  Worksheets("Tabelle1").Protect UserInterfaceOnly:=True
  Worksheets("Tabelle1").EnableOutlining = True 'für Gliederung
  Worksheets("Tabelle1").EnableAutoFilter = True 'für Autofilter

  Worksheets("Tabelle2").Protect UserInterfaceOnly:=True
  Worksheets("Tabelle2").EnableOutlining = True 'für Gliederung
  Worksheets("Tabelle2").EnableAutoFilter = True 'für Autofilter

  Worksheets("Tabelle3").Protect UserInterfaceOnly:=True
  Worksheets("Tabelle3").EnableOutlining = True 'für Gliederung
  Worksheets("Tabelle3").EnableAutoFilter = True 'für Autofilter
End Sub

Also für jedes betreffende Tabellenblatt jeweils 3 Zeilen mit dem entsprechenden Blattnamen.
Dieses Makro wird nur einmal beim Öffnen der Datei ausgeführt, was ja für Dein Anliegen genügen sollte.

Gruß, Uwe

[fs1893]

Hallo,

entferne erst mal alle bisherigen Versuche in allen Modulen.
Dann fügst Du in das Modul DieseArbeitsmappe folgenden Code ein:
...
Also für jedes betreffende Tabellenblatt jeweils 3 Zeilen mit dem entsprechenden Blattnamen.
Dieses Makro wird nur einmal beim Öffnen der Datei ausgeführt, was ja für Dein Anliegen genügen sollte.

Gruß, Uwe

So funktioniert das nun, auch mit dem PDF erstellen. Vielen lieben Dank für die Hilfe