Excel VBA Formel zum Speichern als PDF funktioniert nicht immer. Wie beheben?

Hey. Ich habe einen Code zum Speichern von Tabellenblättern als PDF in Ordnern und Unterordnern, die erstellt werden. Ich habe noch ein paar mal daran herum gebaut, also sieht der Code möglicherweise nicht sehr clean aus.

Ich füge den Code Stückweise ein, weil er zu viele Zeichen hat.

Mein Problem ist nun: Auf meinem PC funktioniert der Code super, ohne zwischenfälle. Ich habe nun die Excel-Datei schon mehrmals per USB auf einen anderen Rechner gezogen und den Dateipfad angepasst. Dennoch funktioniert er hier nur teilweise, da nur Oberordner und Unterordner erstellt werden. Der zweite Unterordner und die PDF Dokumente bleiben weg. Vielleicht kann mir hierbei jemand helfen. Einen schönen 4. Advent euch noch!

22.12.2019, 13:05

Sub justSave()

' justSave Makro

' Tastenkombination: Strg+s

Pfad = Tabelle1.Range("H3").Value

On Error Resume Next

MkDir Pfad & Tabelle1.Range("G2").Value

MkDir Pfad & Tabelle1.Range("G2").Value & "\" & Tabelle1.Range("F2").Value

MkDir Pfad & Tabelle1.Range("G2") & "\" & Tabelle1.Range("F2").Value & "\" & Tabelle1.Range("E2").Value

22.12.2019, 13:06

If Tabelle1.Range("F3").Value = 1 Then

Sheets("Datenblatt").Select

ActiveSheet.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=Pfad & Tabelle1.Range("G2") & "\" & Tabelle1.Range("F2").Value & "\" & Tabelle1.Range("E2").Value & "\Datenblatt.pdf", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=True, _

OpenAfterPublish:=False

Sheets("Anschreiben Familie").Select

ActiveSheet.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=Pfad & Tabelle1.Range("G2") & "\" & Tabelle1.Range("F2").Value & "\" & Tabelle1.Range("E2").Value & "\Anschreiben.pdf", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=True, _

OpenAfterPublish:=False

Sheets("Statistik eintragen").Select

End If

End Sub

1 Antwort

zalto

22.12.2019, 13:42

Die üblichen Verdachtsmomente: Existiert das Laufwerk und die als existierend angenommenen Unterordner? Hast Du Schreibrechte, dort neue Ordner anzulegen? Enthalten die Datei-/Ordnernamen keine illegalen Zeichen?

Geo700

Fragesteller

22.12.2019, 15:06

Das Laufwerk existiert, da ich den Pfad aus den Eigenschaften einer Datei heraus kopiert habe. Und da der Rest auf einem PC funktioniert, sind da wohl auch keine illegalen Zeichen

Moin Leute,

ich habe da ein Programm in Excel erstellt und auch den Code, um das Blatt als .pdf in ein bestimmtes Verzeichnis zu speichern. Problem ist nun, dass ich in dem Code den Dateinamen eingeben muss. Der Speichert das also immer unter dem im Code angegebenen Namen. Ich möchte jetzt, dass der Dateiname so lautet, wie ein bestimmter Zelleninhalt von z.B. J5

Wie kann ich jetzt in meinem Code sagen, dass der Dateiname einem Zelleninhalt entsprechen soll?

Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\Angebot.pdf"

anstatt des Fettgedruckten soll hier der Zelleninhalt von J5 rein

Danke schonmal

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

Ausgewählte Tabellenblätter als ein PDF speichern?

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

...zur Frage

Excel / VBA als pdf speichern?

Guten Tag,

Ich möchte gerne zwei Tabellenblätter aus Excel (Tabellenblatt 1und 3) auf dem Desktop als .pdf speichern.

Der Name der Pdf sollte wie der Zelleninhalt aus Tabelle 1 Zelle G10 lauten.

Leider bekomme ich dies nicht hin.

Kann mir da jemand bitte helfen?

Mit freundlichen Grüßen

...zur Frage

Laufzeitfehler 429 in VBA (Excel Makro)?

Hallo!

Zurzeit versuche ich mich an VBA. Ich habe ein Makro erstellt, dass aus einer Excel Tabelle z.B. eine Rechnung erstellt ( durch befüllen der Texftfelder einer Vorlage )

Nun wollte ich das Makro so umändern, dass automatisch der richtige Pfad zum Speichern bzw Öffnen der Vorlage, für den jeweiligen Windows Nutzer benutzt wird. ( Das habe ich mithilfe von Workbook.Path gemacht.

Allerdings gibt er mir jetzt immer Laufzeitfehler 429 aus und ich weiß nicht was zu tun ist.

Bitte helft mir. ( Office und Word sind up to date )

Grüße

Chris

Hier mein Code: https://paste2.org/E8ZmvBXk

...zur Frage

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zur Frage

Excel-Makros für andere Benutzer nicht aktiv?

Hallo zusammen,

Ich habe ein Excel-Dokument mit mehreren Markos und einem visual basic for applications-Code für mein Unternehmen erstellt. Dadurch, dass auf dieses Dokument alle Abteilungen zugreifen können müssen, wird es in einem Dokumentenablagesystem abgelegt. Ich habe es schon als "Microsoft Excel-Arbeitsblatt mit Makros" gespeichert. Trotzdem sind die Makros und der VBA-Code für alle anderen nach Öffnen nicht aktiv. Kennt hier jemand einen Trick?

Danke!

...zur Frage

Excel VBA Zwei Bereiche zu einer 2-seitigen pdf exportieren?

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

...zur Frage

PDF Datei per Excel via Outlook senden?

Hallo Zusammen!

Ich habe folgenden Code zum erstellen einer PDF aus einem Sheet.

Der Code erstellt einen PDF namen und gibt dem Benuzter die Wahl zu speichern wo er will.. Danach kommt noch eine MSG Box und führt einen Datenbankbefehl aus usw.. Alles soweit ok..

Kann man zusätzlich die Datei noch in "Temp" speichern und per PDF senden? Als Betreff den Dateinamen ? Gerne würde ich auch den Emailempfänger direkt vorgeben und wenn möglich auch das senden ohne bestätigen ausführen.. geht das?

Sub speichern_unter_PDF_AV() a = MsgBox("WKZ ins Budget übertragen?", _ vbYesNo + vbQuestion, "WKZ buchen, PDF erstellen?") If a = vbYes Then 'Bereich kopieren Sheets("AV Markt").Range("AH14:AO14").Copy 'einfügen in erste freie Zeile in ausgabe Sheets("Datenbank AV").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Kopiermodus beenden Application.CutCopyMode = False Name = Range("Z1") Sheets("AV Markt").Activate Dim neuerDateiname As String neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "AV - " & Name & Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (.pdf),.pdf") If Not neuerDateiname = "Falsch" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=neuerDateiname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True Dim loI Dim WsShell Set WsShell = CreateObject("WScript.Shell") loI = WsShell.Popup("WKZ erfolgreich übertragen!" & vbCrLf _ & " " & vbCrLf _ & "AV bitte übermitteln" & vbCrLf _ & " " & vbCrLf _ & "AV´s müssen unterschrieben auf dem Laufwerk abgelegt werden!" & vbCrLf _ & "Danke", Title:=" Power Team") End If End If End Sub

...zur Frage

Excel Datei nicht speicherbar machen Vba?

ich habe ein Programm wie ein Taschenrechner erstellt.
In den Feldern kann man zahlen eingeben und danach kommt das ergebnis.

diese soll aber als Vorlage dienen und wenn man die Anwendung schließen möchte dann soll die Frage „ Möchten Sie es speichern?“ nicht erscheinen.

Gibt es einen VBA Code welches ich schreiben kann damit die Datei nicht speicherbar ist.

also ich klicke auf das rote X und es schließt sich auch weder zu fragen noch zu speichern.

Danke

mfg

...zur Frage

Alle Pivots in Arbeitsmappe automatisch nach Änderung aktualisieren?

Hallo,

ich habe in meiner Excel Arbeitsmappe in unterschiedlichen Tabellenblättern mehrere Pivots. Ich möchte allerdings, dass wenn ich in einer den Filter ändere, dass alle anderen auch automatisch aktualisiert werden. Ich kam bisher nur soweit, indem es sich aktualisiert, wenn ich den Reiter wechsel. Wie muss ich das ganze anpassen, dass es wie gewünscht funktioniert?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Dim pt As PivotTable
   For Each pt In Sh.PivotTables
        pt.RefreshTable
   Next
End Sub

LG Syrena

...zur Frage

Was muss man in Excel eingeben, damit das Datum nicht aktualisiert wird?

Hallo, ich habe wieder eine Excel Frage: ich habe eine Tabelle, Spalten A-H. In der Spalte G habe ich den Status, wo ich eine DropDown-Liste habe und zwischen: "in Bearbeitung", "Material bestellt", [...], "erledigt" auswählen kann. In Spalte H habe ich als Überschrift "erledigt am", es soll also in Spalte H, sobald ich in Spalte G den Status "erledigt" ausgewäht habe, das aktuelle Datum erscheinen. Ich habe also in Spalte H folgende Formel: "=WENN(G50="erledigt";TEXT(JETZT();"TT.MM.JJ");"")". Ich glaube, ihr wisst, worauf ich hinaus wil, also nach dem Speichern soll dich das Datum nicht ändern, tut es aber natürlich. (Ist ja klar!) Aber, da ich erst seit ein paar Monaten mit Excel arbeiten, habe ich noch keine Ahnung. Durch das Stöbern im Internet, habe ich rausgefunden, dass es nicht einfach so funktioniert (oder doch?), sondern, dass man dafür ein Makro braucht (wovon ich absolut keine Ahnung habe). Also so weit bin ich: ich habe die Tabelle offen vor mir, ich klicke auf den Tabellen-Namen und klicke auf "Code anzeigen", dann öffnet sich ja ein Makro Fenster. So, was soll ich nun machen? Ihr wisst ja, welche Spalte ich brauche, es wäre schön einen Code zu haben. :-) Und wenn ich da den Code eingefügt habe, was muss ich dann machen? Ich würde dann auf "speichern" klicken, dann öffnet er ja ein Fenster und weist mich darauf hin, dass ich die Datei als eine Mappe mit Makros speichern muss. Richtig? Dann würde ich das tun. Und dann wenn ich das gespeichert habe, müsste ich die Makros (-> "Inhalt aktivieren") jedes Mal, wenn ich die Datei öffne anklicken, oder? und dann habe ich das, was ich will. Bitte helft mir, ich verzweifle so langsam...

...zur Frage

vba excel skript pdf zusammenfügen?

moin ich habe ein problem undzwar habe ich in excel vba einen knopf wenn ich ihn drücke kommen 4 pdf datein und werden gespeichert kann man alle 4 in einem zsm speichern lassen also zb bündeln?

Danke im vorraus MFG CS

...zur Frage

Problem mit Excel Macro die Datei im Netzwerk abspeichert / Wie Makro in Excel auf anderes Netzwerk abspeichern lassen?

Hallo,

Ich hab heute in der Arbeit ein Dokument in Excel 2010 erstellt.

Im Dokument habe einen Button erstellt und ihm einer Makro zugewiesen.

Der Button soll die Datei als .PDF unter einem bestimmten Pfad abspeichern und die Zeile [F7] als Dateinamen benutzen.

Der Code für die Makro:

Sub Speichern_PDF()

ChDir "PFAD"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Range("F7").Value & "_" & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False

End Sub

Soweit funktioniert auch alles wie gewünscht, jedoch wenn ich das Verzeichnis von [C:] auf [M:] ändere wird die Datei nicht mehr abgespeichert.

In Excel selbst habe ich unter dem Sicherheitscenter den Pfad schon als Vertrauenswürdig eingetragen, und Vertrauenswürdige Dokumente im Netzwerk erlaubt.

Wenn ich den UNC Pfad verwende erstellt es eine Datei, aber nach schließen des Dokumentes funktioniert die Makro wieder nicht.

Eventuell hat ja jemand von euch eine Gute Antwort auf mein Problem.

Würde mich freuen

Gruß Maximilian

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen