Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

PDF aus Tabelle unter neuem Namen speich

Forumthread: PDF aus Tabelle unter neuem Namen speich

PDF aus Tabelle unter neuem Namen speich
03.04.2021 10:53:44
Werner
Hallo zusammen,
bin VBA-Anfänger und suche eine Möglichkeit per Button
einen Teil meiner Tabelle (den Druckbereich habe ich bereits definiert)
als PDF Datei auf dem Desktop (oder noch besser auf dem Dateipfad der
vorhandenen Excel-Tabelle) abzulegen.
Dabei soll der Dateiname (der zu erstellenden PDF-Datei) aus einer Zelle der
Excel-Tabelle entnommen werden und mit dem heutige Datum ergänzt werden.
Zum Beispiel: (Abrechn-Wo1-2021-03-31.pdf) der Anfang des Dateinamens
steht in der Tabelle z. B. in Zelle A2
Hinweis ich arbeite mit einem MAC-Book (ohne Windows) aber mit Original MS-Excel für MAC V16.47.1)!
Vorab vielen herzlichen Dank für Eure Hilfestellung und bleibt gesund!!!

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF aus Tabelle unter neuem Namen speich
03.04.2021 11:14:44
volti
Hallo Werner,
hier ein Beispiel....
Code:



[Cc]



Sub ExportAlsPDF()
  Dim sBer As String, sFilename As String, sPathname As String
  
' <<<Parameter anpassen>>>
  sPathname = ThisWorkbook.Path & "&bsol;"
  sFilename = Range("A1").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf"
  sBer = "B1:D10"
  
  ActiveSheet.Range(sBer).ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=sPathname & sFilename, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz


Anzeige
AW: PDF aus Tabelle unter neuem Namen speich
03.04.2021 15:12:17
Werner
Hallo Karl-Heinz
danke für den Tipp, allerdings funktioniert das noch nicht
(wahrscheinlich muss ich meine Parameter noch besser anpassen.
Kannst Du mir bitte nochmals helfen?
Hier mein Code:
Sub ExportAlsPDF()
Range("C4:D13").Select
ActiveSheet.PageSetup.PrintArea = "$C$4:$D$13"
ChDir "/Users/Piri/Dektop/"
Dim sBer As String, sFilename As String, sPathname As String
' >>
sPathname = ThisWorkbook.Path & "/Users/piri/Desktop/"
sFilename = Range("A2").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf"
sBer = "B1:D10"
ActiveSheet.Range("C4:D13").ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=sPathname & sFilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub


Anzeige
AW: PDF aus Tabelle unter neuem Namen speich
03.04.2021 15:27:28
volti
Hallo Werner,
bei diesem Code benötigst Du den oberen Teil des Codes nicht. Es ist egal, ab ein Druckbereich gesetzt wurde.
Außerdem scheinst Du den Desktop als Speicherort nehmen zu wollen; da kannst Du dann nicht noch den Pfad der aktuellen Mappe vorsetzen...
Auch solltest Du nicht die Slashe nehmen, sondern Backslashe.
Code:



[Cc]



Sub ExportAlsPDF()
  Dim sFilename As String, sPathname As String
  
' <<>>
  sPathname = "C:&bsol;Users&bsol;piri&bsol;Desktop&bsol;"
  sFilename = Range("A2").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf"


  ActiveSheet.Range("C4:D13").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=sPathname & sFilename, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz


Anzeige
AW: PDF aus Tabelle unter neuem Namen speich
03.04.2021 16:36:56
Werner
Hallo Karl-Heinz,
vielen Dank für Deine Hilfe, es funktioniert immer noch nicht (Laufzeitfehler 1004).
Ich will NICHT auf dem Desktop speichern. Das Macro soll an dem gleichenOrt speichern,
an dem die Excel-Tabelle sich befindet.
Hast Du gesehen das ich einen MAC-Rechner und keinen Windows-Rechner habe?
Backslsh ist doch bei MAC-Rechner richtig oder?

Anzeige
AW: PDF aus Tabelle unter neuem Namen speich
03.04.2021 17:16:36
Nepumuk
Hallo Werner,
teste mal:
Public Sub ExportAlsPDF()
Dim sFilename As String, sPathname As String
sPathname = ThisWorkbook.Path & Application.PathSeparator
sFilename = Range("A2").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf"
ActiveSheet.Range("C4:D13").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPathname & sFilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Gruß
Nepumuk

Anzeige
AW: PDF aus Tabelle unter neuem Namen speich
04.04.2021 06:42:06
Werner
Hallo Nepumuk
vielen vielen Dank das Macro funktioniert hervorragend :-))

wenn gelöst, nicht mehr offen. o.w.T
04.04.2021 16:18:48
Werner

Forumthreads zu verwandten Themen

Bitte um Hilfe. Aus .xls- eine .ppt-Datei erzeugen
Sebastian

Zunächst vielen Dank für die Aufnahme im Forum. Ich hoffe ab und an Zeit zu finden um aktiv am Forum teilzunehmen und mein Wissen bezüglich VBA zu erweitern. Erste Erfahrungen konnte ich bereits sammeln, komplexe Aufgaben traue ich mir jedoch definitiv nicht zu. Aber zunächst zu meinem ersten...
15.12.2015 18:17:43
Thread-ID: 1464529
6 Beiträge
Umwandlung PDF nicht alles auf 1 Seite
Markus

Ich habe das Problem, dass ich eine Tabelle in ein PDF umwandeln möchte, sie umfasst den Bereich B1:W199 und das Umwandeln klappt auch, allesdings wird alles auf eine Seite im PDF gesetzt und somit ist es nicht mehr lesbar, weil viel zu viel.
Wie schaffe ich es dass er den Bereich auf mehre...
19.01.2021 10:11:03
Thread-ID: 1806667
5 Beiträge
Druckbereich festlegen für jeden Button
Herter

Hallo,
ich habe mir zwei untereinander liegende Tabelle gemacht, die über einen Button in ein PDF umgewandelt werden. Dafür habe ich zwei entsprechende Druckbereich festgelegt, das die zweite Tabelle auf der neuen Seite beginnt. Jetzt habe ich aber daneben noch eine Tabelle, die ich aber mi...
22.03.2017 11:00:12
Thread-ID: 1548782
1 Beitrag
Anzeige
Excel-Datei in pdf-Datei umwandeln
Rudolf

Hallo Excel-Freunde,
irgendwie kriege ich das nicht hin:
Ich habe eine Excel-Datei, die sich über mehrere Seiten erstreckt. Ich habe die Tabelle so aufgeteilt bzw. die Seitenränder so festgelegt, dass die einzelnen Seiten logisch und übersichtlich auf meinem HP-Drucker gedruckt werden.<...
05.10.2006 14:50:28
Thread-ID: 808081
1 Beitrag
Excel in PDF - Mehrere Dateien
Kretzing

Hallo zusammen,
beim konvertieren einer 20 Arbeitsblätter starken Excel-Datei in eine PDF-Datei wird der Speichern-Dialog geöffnet und es werden die ersten zwei Seiten des Workbooks als PDF gespeichert. Anschließend öffnet sich der Speichern-Dialog erneut und ich kann für die nächsten zwei...
18.03.2005 11:57:38
Thread-ID: 587205
1 Beitrag
Zerstückelung bei PDF Kovertierung
Kretzing

Hallo zusammen,
beim konvertieren einer 20 Arbeitsblätter starken Excel-Datei in eine PDF-Datei wird der Speichern-Dialog geöffnet und es werden die ersten zwei Seiten des Workbooks als PDF gespeichert. Anschließend öffnet sich der Speichern-Dialog erneut und ich kann für die nächsten zwei...
21.03.2005 08:44:35
Thread-ID: 588041
1 Beitrag
Anzeige
Autofilter-Phänomen in Excel 2000 Arbeitsmappe
steff

Hallo, liebe Forumsmitglieder,
ich hoffe, ihr könnt mir helfen. Ich habe ein Problem mit einer Excelmappe (XLS 2000), welches (wohl) mit dem Autofilter zusammenhängt. Die Mappe habe ich leider nicht auf meinem priv. PC vorliegen bzw. kann auch nicht veröffentlicht werden, da vertraulich.
05.01.2009 13:59:00
Thread-ID: 1036947
2 Beiträge
Tabelle in neues Blatt kopieren (again)
Mat
Hallo VBA Experten,
das Thema ist oft behandelt worden aber ich habe leider nicht genug know how, die verschiedenen Beispiele so zusammenzusetzen, dass es für mich funktioniert.
Aus einer Tabelle (aktive Tabelle) möchte ich alle Zeilen, die einen bestimmten Wert in einer Spalte enthalten (...
17.11.2022 16:41:53
Thread-ID: 1907552
3 Beiträge
VBA Makros (kopieren, einschieben, Zelle
Ludolf
Hallo zusammen,
ich verzweifle gerade an dem richtigen VBA Code für meine Tabelle.
Ich hoffe hier kann mir jemand auf die Sprünge helfen.
In einer (Projekt)Übersichtstablle (OBEYA) sollen Projektfelder und darunter Projekte angelgt werden.
Die Dummies dafür stehen in Zeile 11-13.
...
27.06.2021 15:21:37
Thread-ID: 1836777
8 Beiträge
Liste auf bestimmte Arbeitsblätter aufteilen
Rene

Hallo,
ich habe eine lange Liste, die auf 20 bis 30 Arbeitsmappen aufgeteilt werden müssen.
zB alle Zeilen mit einem bestimmten Text oder Zahl in Spalte A.
In einer weiteren Zelle steht die Versionsnummer des Blattes, zB in D1: Version 1
In die bereits vorhandenen Arbeitsblätte...
25.06.2010 03:09:14
Thread-ID: 1163984
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum