Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Bestimmten Bereich per PDF speiche

Forumthread: Excel Bestimmten Bereich per PDF speiche

Excel Bestimmten Bereich per PDF speiche
11.05.2023 09:43:43
Cem CallMe

Moin Zusammen,
ich hoffe Ihr könnt mir helfen, denn ich verzweifle so langsam :(
Ich habe bereits hier und im Internet gefühlt vieles durchgelesen, komme aber leider nicht weiter.

Ich möchte gerne im Excel einen bestimmten Bereich (A1:L57) per Makro, als PDF exportieren lassen, welches mit den Dateinamen "Bericht" und in der Zelle "J1" genannte Nummer im C:\Berichte\ gespeichert soll.

Hat evtl. jemand eine Idee?
Vielen Dank im Voraus :)

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Bestimmten Bereich per PDF speiche
11.05.2023 11:22:37
Cem
Moin Ralf,

ich habe mir da bereits etwas "gebastelt", das Funktioniert auch soweit auch, allerdings speichert er immer nur die gesamte Exceldatei als PDF, aber nicht "nur" den ausgewählte Bereich (A1:L57) als PDF :(

Übersehe ich etwas? 

Sub Bericht_Seite_1()
'
Dim strPATH As String
Dim strFILE As String


With ActiveSheet
    strPATH = "C:\Berichte\" 'Backslash am Ende!
    MakeSureDirectoryPathExists strPATH     

    strFILE = strPATH & "Berichte_" & .Range("J1") & ".pdf"
    
End With


Dim wksPDF As Worksheet
Set wksPDF = ActiveSheet

Sheets("Berichte")Select .Range("A1:J57").ExportAsFixedFormat

  wksPDF.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=strFILE, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

End

Set wksPDF = Nothing

MsgBox ("Bericht gespeichert! "), vbOKOnly + vbInformation, "Info"

End Sub


Anzeige
AW: Excel Bestimmten Bereich per PDF speiche
11.05.2023 11:40:53
Jowe
Hallo,
hier mein Beispielcode (musst Du für Deine Belange anpassen):
Option Explicit

Sub saveRange2Pdf()
 
  Dim myWS As Worksheet
  Dim myRNG As Range
  Dim myPath As String
  Dim myFileNAme
  
  Set myWS = Sheets("DeineTabelle")         'anpassen
  Set myRNG = myWS.Range("A1:E60")           'anpassen
  
  myPath = "C:\DeinZielOrdner"              'anpassen
  myFileNAme = "DeinDateiname" & ".pdf"
  
  myRNG.ExportAsFixedFormat Type:=xlTypePDF, _
   Filename:=myPath & "\" & myFileNAme
  
  Set myWS = Nothing
  Set myRNG = Nothing
  
End Sub
Gruß
Jochen


Anzeige
AW: Excel Bestimmten Bereich per PDF speiche
11.05.2023 11:40:59
RPP63
Nicht
wksPDF.ExportAsFixedFormat …
sondern
Range("A1:J57").ExportAsFixedFormat …
Sub Bericht_Seite_1()
Dim strPATH As String
Dim strFILE As String
    strPATH = "C:\Berichte\" 'Backslash am Ende!
    MakeSureDirectoryPathExists strPATH     
    strFILE = strPATH & "Berichte_" & .Range("J1") & ".pdf"
    Range("A1:J57").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFILE
    MsgBox ("Bericht gespeichert! "), vbOKOnly + vbInformation, "Info"
End Sub

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