Pdf mit Name des tabellenblatts speichern

[JoergPorsch]

Hallo zusammen,
ich bin neu hier und evtl. könnt ihr mir helfen.

Ich habe eine Exceltabelle mit sehr vielen Tabellenblättern, da kommen auch immer wieder neue Tabellenblätter dazu (Kopierfunktion), mit gleicher Struktur wie die vorherigen nur mit anderem Inhalt.

Nun möchte ich ein Makro haben, das mir das aktuelle Tabellenblatt in einen bestimmten Ordnerpfad als Pdf ablegt, wichtig hierbei ist das es den Namen des Tabellenblatts als Speichername für das Pdf nimmt.

Mit der Aufzeichnungsfunktion kriege ich alles hin, nur nicht das der Name des Tabellenblatts als Speichername genommen wird.



Danke schonmal und beste Grüße.

Gruss Joerg

[GMG-CC]

Moin Joerg,

dann zeige uns doch einmal, wie dein bisheriges und fast funktionierendes Makro aussieht. Vielleicht hilft dir ja auch schon

Code:

ActiveSheet.Name

weiter ...

[JoergPorsch]

Hallo Günther,

danke erstmal für den Tipp, aber wo gebe ich den Speichernamen an. Bin grad ein bisschen blind und habe nur gelgentlich mit Makros zu tun.

Danke

Code:

Sub Pdf()
'
' Pdf Makro
'

'
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\Users\joerg.porsch\Documents\Quiz\Pdf\Übersicht.pdf", Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=True
End Sub

[GMG-CC]

Moin Joerg,

so sollte es klappen:

Code:

Sub Pdf()
   Dim Pfad As String, DateiName As String
     
  Pfad = "C:\Users\joerg.porsch\Documents\Quiz\Pdf\" 'Auf letzten Backslash achten!
  DateiName = Pfad & ActiveSheet.Name & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, _
   Quality:=xlQualityStandard, IncludeDocProperties:=True, _
   IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

[JoergPorsch]

Moin Günther,

hat funktioniert, danke.