Hi Gast29355,

danke soweit.
Lässt sich das in einen bestehenden code integrieren:
(ich habe es probiert, bekomme es aber nicht hin..)


Sub SaveWorkshetAsPDF()

ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Documents\pdf´s\liste_MH_" & Format(Now, "dd-mm-yyyy_") & ".pdf" _
  , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8

End Sub

Danke + GRüße,

Max