Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 15:53:24
Günstigster Preis anzeigen lassen?
25.10.2025 15:10:14
VBA: Datei Upload mit http: POST
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
25.10.2025 12:33:55
aktuellstes Datum aus Zelle auslesen
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
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

als PDF speichern

Forumthread: als PDF speichern

als PDF speichern
05.08.2015 18:09:47
Christoph
Hallo zusammen
Gerne benötige ich eure Hilfe.
Ich habe eine Arbeitsmappe mit 55 Arbeitsblätter. Gerne möchte ich mit einem Klick ein PDF von all denen Arbeitsblätter erstellen, bei denen in der Zelle A2 ein Wert vorhanden ist.
Dieses PDF soll es mir in den gleichen Ordner speichern, in welcher auch die Excel Datei ist.
Ist dies überhaupt möglich?
Herzliche Grüsse Christoph

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: als PDF speichern
05.08.2015 18:51:51
AlexG
Hallo Christoph,
so?
Option Explicit
Sub PDF()
Dim vntPDF() As Variant
Dim strFilename As String
Dim i, intWs As Long
Dim wks As Worksheet
intWs = ActiveSheet.Index
strFilename = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf"
For Each wks In Worksheets
    If Not IsEmpty(wks.Range("A2")) Then
        Redim Preserve vntPDF(i)
        vntPDF(i) = wks.Name
        i = i + 1
    End If
Next
Sheets(vntPDF).Select
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets(intWs).Select
End Sub

Gruß
Alex

Anzeige
Korrektur
05.08.2015 19:10:00
AlexG
Hallo Christoph,
ich hatte vergessen die Dateiendung der Excel- Datei zu entfernen
Option Explicit
Sub PDF()
Dim vntPDF() As Variant
Dim strFilename As String
Dim i, lngWs As Long
Dim wks As Worksheet
lngWs = ActiveSheet.Index
strFilename = ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, _
                    InStr(1, ThisWorkbook.Name, ".") - 1) & ".pdf"
For Each wks In Worksheets
    If Not IsEmpty(wks.Range("A2")) Then
        Redim Preserve vntPDF(i)
        vntPDF(i) = wks.Name
        i = i + 1
    End If
Next
Sheets(vntPDF).Select
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets(lngWs).Select
End Sub

Gruß
Alex

Anzeige
AW: Korrektur
05.08.2015 19:17:49
Daniel
Hi
ohne es jetzt getestet zu haben, aber beim normalen Speichern in VBA sollte man die Dateiendung im Dateinamen nicht mit angeben, diese wird automatisch vom System passend zum gewählten FileFormat ergänzt.
würde mich wundern, wenn das beim Speichern als PDF änders wäre.
Gruß Daniel

Anzeige
AW: Korrektur
05.08.2015 19:30:03
AlexG
Hallo Daniel,
danke für den Tipp. Ich sah bei den Beispielen der ExportAsFixedFormat- Methode immer, dass die Dateiendung mit angegeben wurde. Ich habe es jetzt auch mal ohne getestet und wie du angemerkt hast, ist diese nicht nötig. Beide Varianten funktionieren.
Danke und Gruß
Alex

Anzeige
AW: Korrektur
05.08.2015 19:39:31
Daniel
Hi
ja, wird so aufgezeichnet und stört auch nicht, wenn sie richtig geschrieben ist.
solltest du dich aber mal vertippen und die falsche Dateierweiterung angeben, dann wird die richtige anden ganzen Dateinamen angehängt.
dh lautet dein Speichername: Datei.pdv
wird die Datei als Datei.pdv.pdf
gespeichert.
Gruß Daniel

Anzeige
Danke für die Erklärung, Gruß owT
05.08.2015 20:03:53
AlexG

AW: Korrektur
05.08.2015 19:22:52
Christoph
Hallo Alex
Herzlichen Dank für deine rasche Rückmeldung. Ich bin immer wieder erstaunt, was ihr alles könnt.
Das Makro funktioniert fast perfekt. Jedoch erstellt es mir nur eine PDF Datei von den Blättern, die im Excel als Querformat sind. Von denen im Hochformat fehlt jede Spur. Kannst du dies auch noch einbauen?
Gruss Christoph

Anzeige
AW: Korrektur
05.08.2015 19:56:51
AlexG
Hallo Christoph,
am Seitenformat liegt es nicht, und ohne deine Datei zu kennen ist es leider nicht möglich den Fehler zu finden.
Gruß
Alex
;

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
Anzeige
Diagramm in Word als pdf
Sandra

Hallo zusammen.
Ein Diagramm in ein Word-Dokument zu bekommen ist nicht mein Problem. Das bekomme ich hin. Wenn ich aber das Dokument über "Datei drucken" als pdf-Datei drucken möchte, dann ist das Diagramm ohne Farbe dargestellt. Es ist aber keine Druckereinstellung, denn die Tabellen und...
31.08.2009 17:03:10
Thread-ID: 1099661
3 Beiträge
Anzeige
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
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 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
Anzeige
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
Exceltabelle in PDF umwandeln auf auf Desktop sp.
Thomas

Liebe VBA Freunde!
Ich stehe nur vor Problemen :-( und ich hoffe ihr könnt mir helfen!
Wie kann ich eine bestehende Exceltabelle Bereich A1:Q20 mit Hilfe VBA in ein PDF.File umwandeln
und auf den Desktop speichern?
Im Internet habe ich darüber leider nichts gefunden.
Gibt es...
20.06.2012 20:46:01
Thread-ID: 1268201
8 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
mit vba html in pdf umwandeln
daniela

Hallo zusammen,
ich möchte die Website https://www.wmaccess.com/wmaccess/standard/wmaccess aufrufen aus einer Excel Datei heraus, in pdf umwandeln und dann unter I:\II_88\8\fm abspeichern mittels eines Makros.
Kann mir jmd. helfen?
Die Suche im Internet hat mich nicht weitergebrach...
05.09.2012 17:11:59
Thread-ID: 1277526
4 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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