Thema Datum  Von Nutzer Rating
Antwort
31.10.2020 11:25:02 Nico
NotSolved
31.10.2020 13:52:22 ralf_b
NotSolved
Rot Speichern unter
31.10.2020 14:06:57 volti
NotSolved
31.10.2020 14:10:04 volti
NotSolved
31.10.2020 14:35:01 Nico
NotSolved
31.10.2020 15:58:10 volti
NotSolved
31.10.2020 16:38:07 Nico
Solved
01.11.2020 11:56:57 RPP63
NotSolved

Ansicht des Beitrags:
Von:
volti
Datum:
31.10.2020 14:06:57
Views:
499
Rating: Antwort:
  Ja
Thema:
Speichern unter

Hallo Nico,

Deine Beschreibung passt nicht zu Deiner Beschreibung. Die PDF-Datei wird auch nicht aus Zelle K52 gespeist, sondern hat einen festen Namen.

Wenn Du das Blatt "Arbeitsdokumentation" in eine Tabelle exportieren möchest und hier in Zelle K52 der Dateiname steht, kannst Du nachfolgendes Minimal-Makro mal als Anregung testen.

Option Explicit

Sub PDFDokumentation()
' PDFDokumentation Makro
 Dim sDateiname As String, sPfad As String
 
 sPfad = "/Users/onhhollander/Desktop/Abrechnung Hollander WorkingHours/PDF Dokumentationen Hollander/"
 sPfad = ThisWorkbook.Path & "\"
 
 With Sheets("Arbeitszeit Dokumentation")

'Tabelle in PDF-Datei exportieren
    sDateiname = sPfad & .Range("K52").Value & ".pdf"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
           Quality:=xlQualityMinimum, IncludeDocProperties:=True, _
           IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With

End Sub

PS: Der Pfad sieht mir auch merkwürdig aus....

viele Grüße

Karl-Heinz


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.10.2020 11:25:02 Nico
NotSolved
31.10.2020 13:52:22 ralf_b
NotSolved
Rot Speichern unter
31.10.2020 14:06:57 volti
NotSolved
31.10.2020 14:10:04 volti
NotSolved
31.10.2020 14:35:01 Nico
NotSolved
31.10.2020 15:58:10 volti
NotSolved
31.10.2020 16:38:07 Nico
Solved
01.11.2020 11:56:57 RPP63
NotSolved