Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA pdf erstellen mit OneDrive

Forumthread: VBA pdf erstellen mit OneDrive

VBA pdf erstellen mit OneDrive
08.03.2022 09:27:49
Stefan
Hallo zusammen,
Leider habe ich folgendes Problem in einer Arbeitsmappe. Durch Klicken eines Buttons wird die Excel zuerst gespeichert und dann ein PDF erstellt, welches an eine Email angehängt wird. Bevor unsere Firmen PCs auf OneDrive umgestellt wurden, wurde durch den Befehl "kill pdf" die PDF anschließend gelöscht. Mittlerweile kommt ein "Laufzeitfehler 53 - Datei nicht gefunden" und die erstellte pdf ist auch auf dem Desktop zu finden.
Wichtiger Hinweis: der Code soll für beide User "nicht-OneDrive" und "OneDrive" funktionieren. Kann wer helfen? Hier der aktuelle Code:

Sub Save_and_Send()
Dim c As Comment
For Each c In ActiveSheet.Comments
c.Visible = False
Next
ActiveWorkbook.Save 'letzten Stand speichern
Dim pdf As String
pdf = pdf_erstellen
Call permail(pdf)
Kill (pdf) 'pdf wieder löschen
End Sub


Function pdf_erstellen()
Dim pdf As String
Dim sep As String
sep = Application.PathSeparator
pdf = ThisWorkbook.Path & sep & ActiveSheet.Range("E3").Value & ActiveSheet.Range("J3").Value & ".pdf"
'ThisWorkbook.Path & sep & ThisWorkbook.name & ".pdf" 'Speicherpfad
If Sheets("Tabelle3").Visible = xlSheetVisible Then
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Else
Sheets(Array("Tabelle1", "Tabelle2")).Select
End If
On Error Resume Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
On Error GoTo 0
pdf_erstellen = pdf
Sheets("Tabelle1").Select 'Gruppierung aufheben
End Function
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA pdf erstellen mit OneDrive
08.03.2022 16:25:51
Yal
Hallo Stefan,
dann baue deine eigene Kill-Funktion:

Sub MyKill(DateiPfad As String)
'Version Early Binding mit Verweis auf "Microsoft Scripting Runtime"
'Dim FSO As Object
'    Set FSO = New FileSystemObject
'Version Late Binding (ohne "Extras", "Verweise.." )
Dim FSO As FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
'Datei löschen (beide Version gleich)
FSO.GetFile(DateiPfad).Delete True
End Sub
VG
Yal
Anzeige
AW: VBA pdf erstellen mit OneDrive
09.03.2022 10:23:38
Stefan
Danke Yal für deine Hilfe.
Pdf wird nun an die Mail angehängt und anschließend auch ge-killed.
Allerdings kommt folgender Fehler:
Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert.
FSO As FileSystemObject ist dabei blau hinterlegt.
Kannst du helfen?
AW: VBA pdf erstellen mit OneDrive
09.03.2022 10:29:21
Stefan
... sorry, muss mich korrigieren, das pdf wird doch nicht ge-killed und erscheint auf dem Desktop.
Anzeige
AW: VBA pdf erstellen mit OneDrive
09.03.2022 12:18:26
Yal
Hallo Stefan,
Du hast natürlich sofort gegoogelt, was Early und Late Binding ist, und könnte sofort verstehen, was
Verweis auf "Microsoft Scripting Runtime"
bedeutet.
Daher meine Verwechselung korrigieren:

Sub MyKill(DateiPfad As String)
'Version Early Binding mit Verweis auf "Microsoft Scripting Runtime"
'Dim FSO As FileSystemObject
'    Set FSO = New FileSystemObject
'Version Late Binding (ohne "Extras", "Verweise.." )
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
'Datei löschen (beide Version gleich)
FSO.GetFile(DateiPfad).Delete True
End Sub
VG
Yal
Anzeige
AW: VBA pdf erstellen mit OneDrive
09.03.2022 12:41:48
Stefan
Habe tatsächlich gegoogelt und habe das dann auch mit dem Early und Late binding verstanden. Habe mich dann bewusst für Late Binding entschieden, da ich nicht jedem User dieser Arbeitsmappe zumuten kann, dass der MS Scripting Runtime Verweis aktiviert wird.
Der "Tippfehler" ist mir leider nicht aufgefallen, da sind meine VBA Kennnisse zu schlecht.
Danke dir. Jetzt funktioniert alles.
Anzeige
Vielen Dank für die Rückmeldung
09.03.2022 13:30:29
Yal
Hallo Stefan,
mit der Bitte für die Entschuldigung für meine Untertöne. Ich übersehe manchmal, dass was ich als einfach einstufe, eigentlich für "noch nicht fortgeschrittenen" gar nicht so selbstredend.
Das Einbinden von einer Bibliothek wird nur einmal von dem Entwickler vorgenommen. Anschliessend ist es im Code definiert (wenn auch nicht sichtbar), dass die Bib angebunden ist, und der Enduser muss nichts anderes machen, als den Code anzustossen in dem er irgendwo einen Knopf anklickt (oder Alt+F8, Makro auswählen).
Ich empfehle den Early Binding, weil dann stehen die Methode/Eigenschaften des Objektes per Intellisense (Strg+Leertaste) beim Programmieren zur Verfügung. Auch in der Objektkatalog (F2 oder Ansicht, Objektkatalog) ist die Bibliothek sichtbar. Es ist für ein schnelleres Verstehen von VBA hilfreich.
VG
Yal
Anzeige
AW: Vielen Dank für die Rückmeldung
09.03.2022 13:39:36
Stefan
Kein Problem und danke nochmal für deine Feedback und die Empfehlung zwecks Early Binding.
;

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Anzeige
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
3 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Excel als PDF speichern
max

Hallo Excelfreunde,
arbeite viel mit FreePDF XP, Nachteil: es öffnet sich eine Maske ausserhalb von Excel zum Zusammenfügen von Excelseiten und Abspeichern als Datei.
Vor kurzem habe ich im Archiv folgenden Makro gefunden (meinerseits bereits angepasst):
Sub Makro1() ActiveSheet.Exp...
29.02.2012 00:47:25
Thread-ID: 1252798
2 Beiträge
Excel als PDF mit Makro speichern
Wildgans

Hallo Forum,
ich habe mit dem Makrorecorder ein Makro aufgezeichnet, siehe Dokument https://www.herber.de/bbs/user/80794.doc
Wenn ich jetzt diese Makro starte funktionert es auch. Jetz möchte ich nur das bei der Ausgabe nicht drei einzelne Dateien erzeugt werden, sondern dass aus diese...
28.06.2012 10:48:17
Thread-ID: 1269286
3 Beiträge
Excel als PDF speichern
Meier

Hallo zusammen, ich benötige wohl wieder mal eure hilfe. Ich habe bereits ein bestehendes Makro, welches mir aus einem Excel-File verschiedene Files erstellt mit unterschhiedlichen Registern und immer den aktuellen Speicherort und Dateiname übernimmt.
Leider benötige ich jetzt das gleiche M...
05.12.2012 13:33:40
Thread-ID: 1289444
2 Beiträge
best. sheet als pdf speichern mit vba
Bernd

Hallo zusammen,
Brauche Hilfe bei VBA,
Meine Arbeitsmappe besteht aus 10 Tabellenblättern. Erste heißt "Startmenü" dort möchte ich einen Button erstellen und das hinterlegte Makro soll nachfolgenden Code enthalten: speichere Tab-Blatt "Rechnungen" und hole den Ordnerpfad aus Tab-Blatt "...
27.02.2013 18:02:15
Thread-ID: 1301382
16 Beiträge
Tabelle als PDF speichern und als Mail verschicken
OJOJ

Hallo Zusammen,
ich kenne mich mit Excel eigentlich recht gut aus aber mit dem Schreiben eines Makros stoße ich an meine Grenzen. Ich bin mir sicher, dass Ihr mir helfen könnt.
Ich arbeite mit einem Mac und nutze Excel 2011 (Version 14.3.2).
Ich wollte für die Arbeit zwei Makros...
15.03.2013 13:10:36
Thread-ID: 1304215
13 Beiträge
alle Dateien im Verzeichnis als pdf speichern
Uwe

Hallo,
wie kann man alle xls-Dateien in einem Verzeichnis als pdf-Datei speíchern.
26.04.2013 09:27:18
Thread-ID: 1310572
4 Beiträge
Anzeige
Das Speichern einer Excel-Datei (als PDF) loggen.
Roland

Ich will für eine Excel-Datei loggen wann jemand die Datei druckt. Das kann ich problemlos über das Event BeforePrint lösen.
Ich will aber auch loggen, wenn jemand aus der Datei ein PDF-File erstellt. Wenn dies mittels Acrobat oder einem andern Produkt gemacht wird, welches quasi als Drucke...
06.05.2013 16:32:18
Thread-ID: 1311874
2 Beiträge
Als pdf speichern
Albert

Guten Morgen zusammen,
ich will eine Datei als pdf speichern, nachdem alle Druckbereiche definiert wurden.
Hierzu verwende ich nachfolgenden Code.
Private Sub pdf_drucken_Click() Dim strFileName As String 'Call Druckbereiche_einfügen Call Druck strFileName = ThisWorkbook.Path &...
28.10.2013 09:38:50
Thread-ID: 1336104
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

PDF mit Excel VBA und OneDrive erstellen

Schritt-für-Schritt-Anleitung

Um ein PDF mit Excel VBA zu erstellen und in OneDrive zu speichern, kannst du den folgenden Ablauf verwenden:

  1. Speichere die Arbeitsmappe: Stelle sicher, dass die Arbeitsmappe gespeichert ist, bevor du eine PDF erstellst. Dies geschieht mit ActiveWorkbook.Save.

  2. Erstelle eine Funktion für das PDF: Nutze die ExportAsFixedFormat-Methode, um das PDF zu erstellen. Achte darauf, den Speicherort korrekt anzugeben, insbesondere wenn du mit OneDrive arbeitest.

    Function pdf_erstellen()
    Dim pdf As String
    Dim sep As String
    sep = Application.PathSeparator
    pdf = ThisWorkbook.Path & sep & ActiveSheet.Range("E3").Value & ActiveSheet.Range("J3").Value & ".pdf"

    If Sheets("Tabelle3").Visible = xlSheetVisible Then
        Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
    Else
        Sheets(Array("Tabelle1", "Tabelle2")).Select
    End If

    On Error Resume Next
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    On Error GoTo 0
    pdf_erstellen = pdf
    Sheets("Tabelle1").Select
End Function

  3. Versende die PDF per E-Mail: Verwende eine Routine, um das PDF als Anhang zu einer E-Mail hinzuzufügen.

  4. Lösche die PDF nach dem Senden: Um die PDF nach dem Senden zu löschen, kannst du eine eigene Kill-Funktion verwenden:

    Sub MyKill(DateiPfad As String)
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.GetFile(DateiPfad).Delete True
End Sub

Häufige Fehler und Lösungen

  • Laufzeitfehler 53 - Datei nicht gefunden: Überprüfe, ob der Pfad korrekt ist. Wenn du mit OneDrive arbeitest, musst du sicherstellen, dass der Pfad korrekt auf den OneDrive-Ordner verweist.

  • Benutzerdefinierter Typ nicht definiert: Dies kann auftreten, wenn FileSystemObject nicht korrekt deklariert ist. Verwende Late Binding, um sicherzustellen, dass der Code auf jedem Computer funktioniert:

    Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Alternative Methoden

Wenn der direkte Export als PDF nicht funktioniert, kannst du auch in Betracht ziehen, die Datei in einem temporären Verzeichnis zu speichern und dann zu verschieben. Ein Beispiel wäre:

pdf = Environ("TEMP") & sep & ActiveSheet.Range("E3").Value & ActiveSheet.Range("J3").Value & ".pdf"

Danach kannst du die Datei in den OneDrive-Ordner verschieben.

Praktische Beispiele

  1. Serienbrief als PDF speichern: Du kannst den oben genannten Code anpassen, um einen Serienbrief als PDF zu speichern. Stelle sicher, dass die entsprechenden Daten in den Zellen verfügbar sind.

  2. PDF in OneDrive speichern: Achte darauf, dass der Pfad zu deinem OneDrive-Ordner korrekt ist. Beispiel:

    pdf = "C:\Users\DeinBenutzername\OneDrive\Documents\" & ActiveSheet.Range("E3").Value & ".pdf"

Tipps für Profis

  • Nutze Intellisense: Wenn du Early Binding verwendest, stehen dir die Methoden und Eigenschaften des FileSystemObject zur Verfügung, was die Programmierung erleichtert.

  • Fehlerbehandlung: Implementiere eine umfassende Fehlerbehandlung, um sicherzustellen, dass dein Code auch bei unerwarteten Situationen stabil bleibt.

FAQ: Häufige Fragen

1. Wie speichere ich ein PDF in OneDrive?
Verwende den vollständigen Pfad zu deinem OneDrive-Ordner, z.B. C:\Users\DeinBenutzername\OneDrive\Documents\.

2. Was ist der Unterschied zwischen Early und Late Binding?
Early Binding erfordert das Setzen eines Verweises auf die Bibliothek, während Late Binding dies nicht tut. Late Binding macht deinen Code flexibler, da er auf verschiedenen Systemen ohne zusätzliche Einstellungen funktioniert.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige