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

eine pdf-datei speichern mit Namen aus einer Zelle

Forumthread: eine pdf-datei speichern mit Namen aus einer Zelle

eine pdf-datei speichern mit Namen aus einer Zelle
21.02.2016 13:04:20
winfried
Leider haben meine bisherigen Nachforschungen und Anfragen nichts gebracht. ielleicht habe ich ja auch ungenau beschrieben. Also : das Problem ist, aus Excel heraus mit einem Makro eine pdf-Datei zu erstellen, deren Name in einer bestimmten Zelle der Excel-Datei steht. Dieser Inhalt/Name ist nicht immer gleich, sondern wechselt nach Bearbeitung der Excel-Datei.
Dieses hat mit abschliessender Speicherung als Excel-Datei mit eben diesem wechselnden Dateinamen geklappt, klappt aber bei meinen Versuchen nichts als pdf-Datei.
Bei der Excel lief es so:

Sub UnterNamenSpeichern()
Dim sFile As String, sPath As String
Verzeichnis = "E:\0 Daten\Excel\0 see\Vorjahre\"
sFile = Range("B6").Value & "_" & _
Range("B9").Value & ".xls"
End Sub

Vielleicht klappt es ja jetzt mit einer Antwort. Danke Winfried

Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelt
21.02.2016 13:20:53
winfried
Was soll das ? Ich habe hier das Problem näher erläutert, weil ich mit Deinen kurzen, sich nur wiederholenden Antwortzen nun so garnichts anfangen konnte

Anzeige
such doch mal in RECHERCHE,Archivsuche-oT
21.02.2016 13:26:04
was

AW: such doch mal in RECHERCHE,Archivsuche-oT
21.02.2016 13:30:03
winfried
anständige Antworten mit realen Ergebnissen Angaben kannst Du wohl nicht. irgendwie nervt das, nur so allgemeinplätze

eigentlich nervst nur Du ! siehe Selbsthilfe....oT
21.02.2016 13:41:47
was

Anzeige
quält ihn doch nicht so
23.02.2016 17:15:37
Michael
Hi zusammen,
Winni, schau mal: 
Sub Makro1()
' So wird es mit dem Rekorder aufgezeichnet:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\A_Herber\PDF_Speichern.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
' und umgebaut für Deine Datei dann:
Sub UnterNamenSpeichern()
Dim sFile As String, sPath As String
sPath = "E:\0 Daten\Excel\0 see\Vorjahre\"
sFile = Range("B6").Value & "_" & _
Range("B9").Value & ".pdf"   ' pdf!
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPath & sFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
' im Makro evtl. besser ohne open after publish
End Sub
Schöne Grüße,
Michael

Anzeige
AW: quält ihn doch nicht so
23.02.2016 18:22:51
winfried
Hallo, Michael, vielen lieben Dank für Deine Antwort, nach all dem Hin und Her, wonach ich eigentlich schon abgeschlossen hatte mit dem Thema.
Aber Deine Antwort gab mir wieder Mut.
Ich habe Dir mal das Ende meines Makros hier eingestellt. Es sind verschiedene Makros, die immer damit enden, diese Seite als pdf zu speichern mit dem Namen wie er in der Zelle U30 steht.
Weil diese Datei von verschiedenen Anwendern genutzt werden soll, die unterschiedliche Verzeichnisstrukturen haben hier ohne Pfadangabe, damit die pdf-Datei jeweilig in DEM Verzeichnis gespeichert wird, aus dem heraus die Exceldatei geöffnet wurde ( klappt mit anderen Programmen sehr gut)
Sheets("Tabelle").Select
Range("D2:S2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Application.Run "unternamenspeichern"
End Sub 
Sub UnterNamenSpeichern()
Dim sFile As String
sFile = Range("u30").Value & ".pdf"   ' pdf!
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
End Sub
Wenn ich das Makro so ablaufen lasse, bleibt es stehen und markiert den gesamten letzten Block.
Was mache ich falsch ?
Nun bin ich wieder voller Hoffnung. Vielen Dank im Voraus
Winni

Anzeige
AW: quält ihn doch nicht so
23.02.2016 20:45:08
Michael
Hi Winni,
schau mal:
' hier in Modul 1
Option Explicit
Sub bis_hierhin()
' die zwei folgenden Anweisungen machen schlicht
' nichts, außer in der Datei herumzuhüpfen
Sheets("Tabelle1").Select
'in Deinem Beispiel Tabelle ohne 1
Range("D2:S2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Call UnterNamenSpeichern(Sheets("Tabelle1"), "U30")
End Sub
Sub UnterNamenSpeichern(blatt As Worksheet, sfileZelle As String)
Dim sfile As String
sfile = ActiveWorkbook.Path & "\" & _
blatt.Range(sfileZelle).Value & ".pdf"
MsgBox sfile
blatt.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False   ' das ist ggf. mit True zu ersetzen
End Sub
Die Sub UnterNamenSpeichern(blatt As Worksheet, sfileZelle As String) erwartet das Blatt als "Blatt", also nicht nur den Namen, sondern wie oben mit Sheets("Tabelle1"), während die zweite Angebabe reiner Text ist, also "U30" oder was immer Du benötigst: damit ist die Sub völlig variabel einsetzbar.
Ich liefere Dir die Datei mal mit: https://www.herber.de/bbs/user/103827.xlsm
Schöne Grüße,
Michael

Anzeige
AW: quält ihn doch nicht so
25.02.2016 13:03:43
winfried
Hallo, Michael, bitte entschuldige vielmals, aber ich bin 2 Tage nicht zu Hause gewesen, bin eben erst wieder an den PC gegangen.
Erstmal vielen vielen Dank für Deine konstruktive Hilfe. Sie unterscheidet sich doch sehr von anderen. Hiermit kann man wenigstens etwas anfangen.
Ich habe Deine Schritte bei mir eingefügt. Es läuft auch erst auch gut, der pdf-Dateiname soll bestätigt werden ( alles richtig aus der Zelle übernommen ), aber dann hackt es leider wieder.
Der letzte Block ab blatt.Exportasfixed.... ist beim Debuggen gelb unterlegt.
Weisst Du da Rat ? Hat es damit zu tun, dass nicht das ganze Tabellenblatt, sondern nur der als Druckbereich definierte Bereich als pdf gespeichert werden soll ?
Wäre toll, wenn es doch noch vollständig klappen kann, wenn man schon mal soweit ist.
Vielen Dank im Voraus
LG Winni
Application.CutCopyMode = False
ActiveWorkbook.Save
Call UnterNamenSpeichern(Sheets("Tabelle"), "U30")
End Sub 
Sub UnterNamenSpeichern(blatt As Worksheet, sfileZelle As String)
Dim sfile As String
sfile = ActiveWorkbook.Path & "\" & _
blatt.Range(sfileZelle).Value & ".pdf"
MsgBox sfile
blatt.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
End Sub

Anzeige
schwer zu sagen
25.02.2016 17:35:43
Michael
Hi Winni,
also, das mit dem Druckbereich ist die unterste Zeile mit dem ignoreprintareas, zu gut deutsch: ignoriere den Druckbereich. Hm, muß ja dann eigentlich auf false stehen.
Zeichne das ganze als PDF speichern doch mal mit dem Makrorekorder auf und lade den Codeschnipsel hoch.
Vielleicht sehe ich da noch was, ansonsten müßte ich wohl die Original-Datei sehen - zur Not per mail, die siehst Du in meinem Profil.
Schöne Grüße,
Michael
P.S.: Heißt Dein Blatt wirklich nur "Tabelle" ohne Nr.? Aber daran kann es eigentlich auch nicht liegen, denn der Wert von U30 wird ja anscheinend brav eingelesen.
Hat meine Beispieldatei reibungslos funktioniert? So wie sie ist?

Anzeige
AW: schwer zu sagen
25.02.2016 17:51:25
winfried
Hallo Michael,
also Deine Datei hat einwandfrei funktoniert, hat den gesamten genutzten Bereich der Datei als pdf gespeichert.
Das Blatt heisst wirklich nur 'Tabelle'. Es geht hier um die Auswertung einer Fußballtipp-Runde.
Ich habe es mal aufgezeichnet, dass der Druckbereich als pdf gespeichert wird, aber eben ja den wechselnden Datei-Namen manuell eingegeben. Vielleicht kannst Du ja etwas daraus erkennen.
Sub pdf_druckbereich_22()
' pdf_druckbereich_22 Makro
Application.Goto Reference:="Print_Area"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Supertrainer Rückrunde 15-16 - Spieltag 22.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

Anzeige
AW: schwer zu sagen
26.02.2016 11:34:13
Michael
Hi Winni,
das ist ja anscheinend das Gleiche...
Ich habe in meiner Datei einen Druckbereich definiert und das Ganze in EIN Sub gepackt; eigentlich ist es ja sowieso nur eine Anweisung (wenn auch mehrzeilig) - vielleicht geht es ja so.
https://www.herber.de/bbs/user/103905.xlsm
Ansonsten fällt mir ohne Deine Datei eigentlich nix mehr ein.
Schöne Grüße,
Michael

Anzeige
AW: schwer zu sagen
26.02.2016 13:54:42
winfried
moin, also wenn Du nicht weiter weisst ? ich kann Dir ruhig meine ganze Datei schicken, aber ... Unter Profile finde ich zwar 2x einen Michael, aber beide ohne eine E-Mail-Adr.. Ich weiss, ich mal wieder zu doof :-( , aber hast doch geschrieben dass ich sie finden kann.

AW: schwer zu sagen
26.02.2016 16:53:16
winfried
Hallo, Michael,
habe Dir eben die Excel-Datei an die schwärmerische E-mailadr geschickt.
Danke Dir !

Na, da hammer's schon
27.02.2016 18:47:34
Michael
Hi Winni,
Datei ging eben per mail zurück an Dich!
Damit die Leser des Forums auch wissen, was der Fehler war: Du hattest im Dateinamen einen "/" bei der Saison. Wo Du es nämlich händisch gespeichert hast, hast Du den Dateinamen händisch vergeben mit "xxx Saison 15-16 xxx", nur bei "meiner" Variante hieß es "xxx Saison 15/16 xxx" - da spuckt das System.
Habe in U28 den / durch einen - ersetzt, und schon geht's ohne weitere Änderung.
Schöne Grüße,
Michael

Anzeige
AW: Na, da hammer's schon
28.02.2016 17:28:17
winfried
VIELEN VIELEN DANK, es läuft.
"Sehr gutes Arbeiten mit Dir". Auch was Du mir da noch geändert hast, ... ich weiss jetzt, dass ich so gut wie nischt weiss. Hat zwar auch so geklappt ( bis aufs speichern ), aber die Verschlankung ist schon enorm, die Du da eingebaut hast. Meine Hochachtung !
;

Forumthreads zu verwandten Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
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
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Markierter Bereich als Text Datei speichern
Roland

Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
21.08.2009 23:44:54
Thread-ID: 1097867
6 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Anzeige
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
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
VBA: Datei ohne Makros speichern
André

Moin zusammen,
gegeben ist eine Exceldatei mit Makros (.XSLM).
In dieser Datei soll nun ein Makro folgendes tun:
- die Datei speichern, wobei der User den Dateinamen und Pfad angeben darf
- die Datei darf nur in den Formaten XLSX oder XlS, in jedem Fall aber ohne Makros gespeich...
19.04.2010 13:13:27
Thread-ID: 1152560
8 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
Anzeige

Infobox / Tutorial

PDF-Datei speichern mit Namen aus einer Zelle in Excel

Schritt-für-Schritt-Anleitung

Um eine PDF-Datei aus Excel zu speichern, deren Name in einer bestimmten Zelle steht, kannst du ein einfaches Excel VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code ein:

    Sub UnterNamenSpeichern()
   Dim sFile As String
   sFile = Range("U30").Value & ".pdf"   ' Name aus Zelle U30
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
       Filename:=sFile, _
       Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, _
       IgnorePrintAreas:=False
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu deiner Excel-Datei.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle UnterNamenSpeichern aus und klicke auf Ausführen.

Damit wird das aktive Blatt als PDF gespeichert, und der Dateiname wird aus der Zelle U30 entnommen.

Häufige Fehler und Lösungen

  • Fehler: "Dateiname ungültig"
    Lösung: Stelle sicher, dass der Dateiname in der Zelle U30 keine ungültigen Zeichen wie /, \, :, *, ?, " oder | enthält.

  • Fehler: PDF wird nicht gespeichert
    Lösung: Überprüfe, ob du die richtigen Berechtigungen hast, um im gewünschten Verzeichnis zu speichern. Außerdem sollte der Pfad korrekt sein.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch die integrierte Funktion in Excel verwenden:

  1. Gehe zu Datei > Speichern unter.
  2. Wähle den Dateityp PDF aus und gib den gewünschten Namen manuell ein.

Dies ist eine gute Möglichkeit, wenn du keine VBA-Kenntnisse hast.

Praktische Beispiele

  1. Speichern des gesamten Arbeitsblatts als PDF:

    Sub SpeichernGesamtAlsPDF()
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
       Filename:="C:\DeinPfad\Gesamt.pdf", _
       Quality:=xlQualityStandard
End Sub

  2. Speichern eines markierten Bereichs als PDF:

    Sub SpeichernMarkiertenBereichAlsPDF()
   Selection.ExportAsFixedFormat Type:=xlTypePDF, _
       Filename:="C:\DeinPfad\Markiert.pdf", _
       Quality:=xlQualityStandard
End Sub

Tipps für Profis

  • Dynamische Dateinamen: Du kannst mehrere Zellen kombinieren, um einen dynamischen Dateinamen zu erstellen. Beispiel:

    sFile = Range("B6").Value & "_" & Range("B9").Value & ".pdf"

  • Druckbereich festlegen: Wenn du nur einen bestimmten Bereich als PDF speichern möchtest, stelle sicher, dass du den Druckbereich vorher definierst:

    ActiveSheet.PageSetup.PrintArea = "A1:D10"  ' Beispiel für Druckbereich

FAQ: Häufige Fragen

1. Wie kann ich eine PDF-Datei in Excel einfügen?
Du kannst eine PDF-Datei in Excel einfügen, indem du zu Einfügen > Objekt gehst und dann die PDF-Datei auswählst.

2. Kann ich PDF-Dateien ohne Makros speichern?
Ja, du kannst PDF-Dateien manuell über Datei > Speichern unter speichern, indem du den Dateityp auf PDF setzt.

3. Wie ändere ich den Namen einer PDF-Datei nach dem Speichern?
Du musst die Datei im Windows Explorer finden und den Dateinamen manuell ändern. Alternativ kannst du ein Makro schreiben, um dies automatisiert zu tun.

4. Was kann ich tun, wenn das Makro nicht funktioniert?
Überprüfe die Syntax des Codes und stelle sicher, dass die Zelle, die den Namen enthält, korrekt referenziert wird. Achte auch auf mögliche Berechtigungsprobleme beim Speichern.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige