PDF erstellen und in der Zwischenablage speichern

Forumthread: PDF erstellen und in der Zwischenablage speichern

31.01.2019 07:25:44

Thomas

Hallo
Ich möchte gern das Tabellenblatt "Drucken" Bereich "A1:AJ57"als PDF in die Zwischenablage kopieren.
Dieses dann per Mail versenden und aus der Zwischenablage löschen.
Zum Mail Versenden könnte ich folgenden Code verwenden:
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = "mail@mail.de"
.Subject = "Text" & "_" & ThisWorkbook.Worksheets("Drucken").Range("BH31")
.Body = "Text"
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector 'fügt die Standart-Signatur an
End With
On Error GoTo 0
Set oApp = Nothing
End Sub
Vielen Dank für Eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF erstellen und in der Zwischenablage speichern

31.01.2019 07:33:32

Thomas

Sorry, falscher Gedankenweg

AW: PDF erstellen und in der Zwischenablage speichern

31.01.2019 07:40:11

Torsten

Du kannst die nicht in den Zwischenspeicher packen. Die Datei muss gespeichert und dann wieder geloescht werden.


Sub RANGE_als_PDF_Datei_per_Outlook_versenden()
Sheets("Drucken").Range("A1:AJ57").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
AWS = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & ".pdf"
InitializeOutlook = True

dann dein code zum Versenden

Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = "mail@mail.de"
.Subject = "Text" & "_" & ThisWorkbook.Worksheets("Drucken").Range("BH31")
.Body = "Text"
.attachments.Add AWS  'PDF als Anhang
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector 'fügt die Standart-Signatur an
End With
Kill AWS  'PDF loeschen
On Error GoTo 0
Set oApp = Nothing
End Sub

Gruss Torsten

Infobox / Tutorial

PDF erstellen und in der Zwischenablage speichern

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Excel-Daten als PDF speichern: Um das Tabellenblatt "Drucken" als PDF zu speichern, verwende folgenden VBA-Code. Dieser speichert den angegebenen Bereich ("A1:AJ57") als PDF-Datei.

Sub RANGE_als_PDF_Datei_per_Outlook_versenden()
   Sheets("Drucken").Range("A1:AJ57").ExportAsFixedFormat _
   Type:=xlTypePDF, _
   Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name, _
   Quality:=xlQualityStandard, _
   IncludeDocProperties:=False, _
   IgnorePrintAreas:=False, _
   OpenAfterPublish:=False
End Sub

PDF-Datei versenden: Nachdem die PDF-Datei gespeichert wurde, kannst Du sie mit Outlook versenden. Hier ist der Code, um die Datei als Anhang hinzuzufügen.

Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
   Application.Wait 1
   .To = "mail@mail.de"
   .Subject = "Text" & "_" & ThisWorkbook.Worksheets("Drucken").Range("BH31")
   .Body = "Text"
   .Attachments.Add AWS  'PDF als Anhang
   .Display
   SendKeys "{END}", True
   SendKeys "~", True
   SendKeys "^v", True
   SendKeys "~", True
   .GetInspector 'fügt die Standard-Signatur an
End With
Kill AWS  'PDF löschen
On Error GoTo 0
Set oApp = Nothing

PDF in der Zwischenablage speichern: Nach dem Versenden kannst Du die Datei aus der Zwischenablage löschen, falls sie dort gespeichert wurde.

Häufige Fehler und Lösungen

Fehler: PDF wird nicht erstellt
Überprüfe, ob der angegebene Bereich "A1:AJ57" korrekt ist. Stelle sicher, dass das Tabellenblatt "Drucken" existiert.
Fehler: Outlook öffnet sich nicht
Stelle sicher, dass Microsoft Outlook auf Deinem Computer installiert und richtig konfiguriert ist.
Fehler: PDF wird nicht als Anhang hinzugefügt
Vergewissere Dich, dass der Pfad zur PDF-Datei korrekt ist. Der Code AWS sollte den vollständigen Pfad zur Datei enthalten.

Alternative Methoden

PDF-Datei manuell erstellen: Du kannst die Datei auch manuell über "Datei" > "Speichern unter" > "PDF" erstellen, wenn Du keinen VBA-Code verwenden möchtest.
Excel aus PDF erstellen: Wenn Du ein PDF in Excel importieren möchtest, kannst Du dafür Drittanbieter-Tools oder Online-Dienste nutzen.

Praktische Beispiele

Serienbrief als PDF speichern: Wenn Du einen Serienbrief hast und diesen als PDF speichern möchtest, kannst Du den oben genannten Code entsprechend anpassen, um die gesamte Tabelle oder nur bestimmte Zeilen zu exportieren.
Bild aus Zwischenablage speichern: Wenn Du ein Bild aus der Zwischenablage speichern möchtest, kannst Du die Funktion CopyPicture verwenden, um das Bild in eine Datei zu exportieren.

Tipps für Profis

Automatisierung durch Makros: Verwende Makros, um den Prozess der PDF-Erstellung und des Versendens zu automatisieren. Dies spart Zeit und reduziert Fehler.
PDF in Excel einfügen: Um PDFs in Excel zu integrieren, verwende die Option "Einfügen" > "Objekt" und wähle die PDF-Datei aus.

FAQ: Häufige Fragen

1. Wie kann ich Bilder aus der Zwischenablage speichern?
Du kannst Bilder aus der Zwischenablage speichern, indem Du die Funktion PasteSpecial verwendest, um das Bild in ein Arbeitsblatt einzufügen und dann als Bilddatei zu exportieren.

2. Kann ich mehrere Bereiche in einer PDF speichern?
Ja, Du kannst mehrere Bereiche kombinieren, indem Du sie in ein neues Arbeitsblatt kopierst und dann dieses Arbeitsblatt als PDF speicherst.

Beliebteste Forumthreads (12 Monate)

PDF erstellen und in der Zwischenablage speichern

Forumthread: PDF erstellen und in der Zwischenablage speichern

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

PDF erstellen und in der Zwischenablage speichern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

PDF erstellen und in der Zwischenablage speichern

Forumthread: PDF erstellen und in der Zwischenablage speichern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

PDF erstellen und in der Zwischenablage speichern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread