eine pdf-datei speichern mit Namen aus einer Zelle

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

' 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

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

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

Beliebteste Forumthreads (12 Monate)

eine pdf-datei speichern mit Namen aus einer Zelle

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

245 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

eine pdf-datei speichern mit Namen aus einer Zelle

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

245 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread