VBA PDF speichern

Hallo Claus,
<br />das hat bestens geklappt, Dankeschön.
<br />Claus ,ich habe jetzt das Programm auf den Windowsrechner übertragen. Alle Pfade etc entsprechend umgestellt. Soweit bis auf eine Fehlermeldung ist auch alles ok.
<br />Ich bekomme jetzt aber in der Tabelle "AuswertungSchuelerliste" bei einer Datenprüfung der Namen den Fehler "Funktion ungültig"
<br />Die Funktion wurde auf dem Rechner folgendermaßen verändert;
<br />=_xlfn._xlws.FILTER(Anwesenheitsliste!B15:B116;ISTZAHL(SUCHEN(AuswertungSchueler!H5;Anwesenheitsliste!B15:B116));"Nicht gefunden")
<br />vorher war es
<br />=FILTER(Anwesenheitsliste!B15:B116;ISTZAHL(SUCHEN(AuswertungSchueler!H5;Anwesenheitsliste!B15:B116));"Nicht gefunden")
<br />Ich kann das auch nicht rückgängig machen
<br />Weißt du, was da passiert ist?
<br />VG
<br />Andreas
<br />

Hallo Mallorca

Ich bin Anna und helfe Ihnen gerne bei Ihrer Frage. In diesem Forum sind wir Microsoft-Verbraucher wie Sie.

Entschuldigung für den Ärger, den dies verursacht haben könnte. Ich sehe, dass Sie Excel als PDF mit VBA speichern möchten, wenn Sie das Recht haben, sehen Sie sich bitte den folgenden Link an, um dies zu speichern

https://exceloffthegrid.com/vba-code-save-excel-file-as-pdf/

Hinweis: Dies ist eine Website, die nicht von Microsoft stammt. Die Seite scheint genaue und zuverlässige Informationen zu liefern. Hüten Sie sich vor Werbung auf der Website, die für Produkte wirbt, die häufig als PUPs (potenziell unerwünschte Produkte) klassifiziert werden. Recherchieren Sie gründlich über jedes Produkt, das auf der Website beworben wird, bevor Sie es herunterladen und installieren.

Ich hoffe, das hilft ;-), lassen Sie mich wissen, wenn dies im Widerspruch zu dem steht, was Sie brauchen, ich wäre immer noch hilfreich, um mehr von Ihren Fragen zu beantworten.

Alles Gute

Anna

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person mit diesem Problem, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Hallo Andreas,
<br />probiere es mal so:
<br />

Sub PDF()

With ActiveSheet

With .PageSetup

.PrintArea = "$A$1:$R$31"

.Orientation = 2

End With

.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:="C:\Users\claus\Desktop\ErgebnisseSchueler\" & Date & "_" & _

Range("H5") & "_" & Range("J5") & ".pdf", Openafterpublish:=True

End With

MsgBox ("PDF ist gespeichert")

End Sub

Claus
<br />

hallo Anna,
<br />ich habe versucht den code anzupassen. Ich bekomme aber weiterhin folgenden fehlen. "Fehler beim Kompilieren" Syntaxfehler.
<br />Sub SaveRangeAsPDF()
<br />'Create and assign variables
<br />Dim saveLocation As String
<br />Dim rng As Range
<br />
<br />saveLocation = "C:\Users\hbbk\Desktop\Anwesenheit\"& _
<br />'Date & "_" & Range("H5") & "_" & Range("J5") & ".pdf"
<br />Set rng = Sheets("AuswertungSchueler").Range("C1:R30")
<br />
<br />'Save a range as PDF
<br />rng.ExportAsFixedFormat Type:=xlTypePDF, _
<br />Filename:=saveLocation
<br />End Sub
<br />Danke für die Hilfe
<br />Andreas
<br />

Dankeschön Claus für die Rückmeldung
<br />