Office: (Office 365) Bereich speichern als PDF speichern

Helfe beim Thema Bereich speichern als PDF speichern in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute, leider habe ich ein Problem mit meinem VBA-Code. Bin leider noch nicht so fit darin. Ich habe einen VBA-Code erstellt, womit ein... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von flomen1309, 27. Juni 2021.

  1. flomen1309 Neuer User

    Bereich speichern als PDF speichern


    Hallo Leute, leider habe ich ein Problem mit meinem VBA-Code. Bin leider noch nicht so fit darin. Ich habe einen VBA-Code erstellt, womit ein festgelegter Bereich eingeblendet, als PDF gespeichert und wieder ausgeblendet werden soll. Leider tut er das nicht.

    Code:
    Sub rechnung_speichern()
    Worksheets("RECHNUNG_AUSDRUCK").Visible = True
    Const dateipfad = "M:\OneDrive\Eva-Maria\Zwergenatelier\Rechnungen\"
    Dim dateiname As String
    Dim Datei As String
    dateiname = "RE" & " " & Range("rechnungsnummer") & " " & Range("suchname") & " " & Range("E19") & ".pdf"
    Datei = dateipfad & dateiname & ".pdf"
    Range("RECHNUNG_AUSDRUCK!A1:R99").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dateiname, Quality:=xlqualitystandart, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Worksheets("RECHNUNG_AUSDRUCK").Visible = False
    Sheets("RECHNUNG").Select
    
    MsgBox "Deine rechnung wurde gespeichert", , "Info"
    
    End Sub
    
    Könnte vielleicht jemand meinen Code anschauen und mir vielleicht eine Lösung nennen?

    Vielen Dank im Voraus :)
     
    flomen1309, 27. Juni 2021
    #1
  2. Exl121150 Erfahrener User
    Hallo,
    da gibt es mehrere Problemzonen in deinem VBA-Code:

    1) Deine Dateiname-Variable beinhaltet bereits am Ende ...& ".pdf" als Dateierweiterung und dann noch einmal in Datei = dateipfad & dateiname & ".pdf"

    2) Du verwendest die Methode .ExportAsFixedFormat als eine Methode des Range-Objektes, was sie nicht ist. Es besitzt tatsächlich nur das Workbook-Objekt und das Worksheet-Objekt diese Methode.

    3) Du verwendest innerhalb der ExportAsFixedFormat-Methode den Parameter Quality mit dem Wert xlQualityStandart. Diesen Wert gibt es nicht. Den Wert, den du wahrscheinlich meinst, lautet xlQualityStandard
     
    Exl121150, 27. Juni 2021
    #2
  3. RPP63
    RPP63 Erfahrener User
    Moin Anton!
    Du irrst: Bereich speichern als PDF speichern *;)*
    Range.ExportAsFixedFormat-Methode (Excel)

    Der Fehler liegt vielmehr hier:
    Code:
    Range("RECHNUNG_AUSDRUCK!A1:R99").ExportAsFixedFormat […]
    Muss natürlich so lauten:
    Code:
    Worksheets("RECHNUNG_AUSDRUCK").Range("A1:R99").ExportAsFixedFormat […]
    (macht selbstverständlich nur dann Sinn, wenn die Tabelle größer ist, ansonsten nimmt man die bereits angesprochene Worksheet.Exp…-Methode)

    Zu Punkt 3 gebe ich Dir Recht, zu Punkt 1 nur eingeschränkt:
    Die Angabe der Erweiterung in FileName:= ist überflüssig!
    Path & Name reicht völlig, da die Erweiterung bereits mit Type:=xlTypePDF vorgegeben ist.

    Gruß Ralf
     
    Zuletzt bearbeitet: 27. Juni 2021
    RPP63, 27. Juni 2021
    #3
  4. flomen1309 Neuer User

    Bereich speichern als PDF speichern

    Hey Leute, danke für die Hilfe. Hab das alles geändert, lässt sich aber immer noch nicht speichern.

    Habe ich das so richtig übernommen, oder doch noch einen Fehler drin?
    Code:
    Sub rechnung_speichern()
    Worksheets("RECHNUNG_AUSDRUCK").Visible = True
    Const dateipfad = "M:\OneDrive\Eva-Maria\Zwergenatelier\Rechnungen\"
    Dim dateiname As String
    Dim Datei As String
    dateiname = "RE" & " " & Range("rechnungsnummer") & " " & Range("suchname") & " " & Range("E19")
    Datei = dateipfad & dateiname & ".pdf"
    Worksheets("RECHNUNG_AUSDRUCK").Range("A1:R99").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Worksheets("RECHNUNG_AUSDRUCK").Visible = False
    Sheets("RECHNUNG").Select
    
    MsgBox "Deine rechnung wurde gespeichert", , "Info"
    
    End Sub
    
     
    flomen1309, 27. Juni 2021
    #4
  5. RPP63
    RPP63 Erfahrener User
    Filename:=Datei
     
    RPP63, 27. Juni 2021
    #5
  6. flomen1309 Neuer User
    Es klappt, dankeschön. Ich hab mir quasi ein kleines Warenwirtschaftssystem gebaut zur Rechnungserstellung für das Kleingewerbe meiner Freundin. Hat spaß gemacht. Aber bei VBA musste ich doch resignieren. Dauert wohl noch eine Weile, bis ich das begreife.

    Vielen Dank :)
     
    flomen1309, 27. Juni 2021
    #6
Thema:

Bereich speichern als PDF speichern

Die Seite wird geladen...
  1. Bereich speichern als PDF speichern - Similar Threads - Bereich speichern PDF

  2. Bereich als Textdatei speichern.

    in Microsoft Excel Hilfe
    Bereich als Textdatei speichern.: Hallo Zusammen, habe eine Datei in der Bereiche die ausgefüllt werden und dann unter anderem als PDF gespeichert werden. Das funktioniert auch soweit. Gerne hätte ich das nur wenn etwas in der...
  3. Excel-Bereich als Bild speichern

    in Microsoft Excel Hilfe
    Excel-Bereich als Bild speichern: Hallo liebes Forum, ich habe einen super Code hier im Forum gefunden: Sub DiagrammAuswertung() Application.ScreenUpdating = False ActiveSheet.Range("A1:E14").CopyPicture...
  4. Bestimmten Bereich mit Makro in pdf speichern

    in Microsoft Word Hilfe
    Bestimmten Bereich mit Makro in pdf speichern: Hallo, ich habe folgende Frage: ist es möglich, über einen Makro Button nur einen bestimmten Bereich/Tabellen (welche ich vorher festlege) in einer pdf zu speichern und wenn ja, wie? Kurz zum...
  5. Bereich als Bild speichern Excel 365

    in Microsoft Excel Hilfe
    Bereich als Bild speichern Excel 365: Hallo zusammen, ich möchte einen Bereich wo ein Diagramm und ein paar Tabellenzeilen abgebildet sind als Bild speichern. Dieses Bild möchte ich nachher über HTML/PHP anzeigen lassen. Ich habe...
  6. Mehrere Bereiche aus verschiedenen Blättern in einer pdf-Datei speichern

    in Microsoft Excel Hilfe
    Mehrere Bereiche aus verschiedenen Blättern in einer pdf-Datei speichern: Hallo zusammen, Ich weiß, dass ich einzelne Blätter als pdf speichern kann. Leider generiert mir Excel für jedes ausgewählte Blatt eine eigene pdf-Datei. Wie kann ich es erreichen, dass ich per...
  7. Bereiche mit Kennwort geschützt beim speichern sollen diese wieder gesprerrt

    in Microsoft Excel Hilfe
    Bereiche mit Kennwort geschützt beim speichern sollen diese wieder gesprerrt: Bereiche mit Kennwort geschützt beim speichern sollen diese wieder gesperrt werden Hallo zusammen, ich hab mal wieder ein Problem und finde keine Lösung! Ich habe in einer Excel-Liste...
  8. VBA: Bereich variable kopieren, Speichern Unter, Druckvorschau & Drucken

    in Microsoft Excel Hilfe
    VBA: Bereich variable kopieren, Speichern Unter, Druckvorschau & Drucken: Hallo, ich brauche wieder eure Hilfe, damit es aber dieses Mal einfacher ist zu verstehen habe ich eine Beispieldatei erstellt. Ich gestehe das es für mich unmöglich scheint, aber ich weiß es...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden