VBA variabler Speicherpfad geht nicht
19.08.2016 10:38:07
Falco
ich suche mal wieder den Experten unter euch der mir den Fehler meines Codes finden und verbessern kann. Ich möchte meine Excel Mappe unter einen bestimmten Pfad speichern (abhängig von Zellinhalt) und dann nur die Seiten 2 bis 8. Der Speicherpfad und Name wird bereits in einer Tabelle ausgewertet und das Ergebnis in eine Zelle ausgegeben. Sieht ungefähr so aus: z:\QM\Messungen\Bericht 1.1.16.pdf
Mein dazugehöriger Code:
-----
Public Sub AlsPDF()
Sheets(Array("Seite 1 - Deckblatt", "Seite 2 - Übersicht", "Seite 3 - Temp. Zone 1", "Seite 4 - _
_
Temp. Zone 2", "Seite 5 - ÜTemp. Zone 1", "Seite 6 - ÜTemp. Zone 2", "Seite 7 - Schlepp TE", " _
Seite 8 - Mängelprot.")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xltyppdf, Filename:="Sheets("Tabelle1").Range("P11").Value",
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
from:=2, To:=8, _
OpenAfterPublish:=False
.Close SaveChanges:=False
End With
End Sub
-----
Vorher funktionierte es als ich noch einen Starren Speicherpfad hatte:
Filename:="Z:\QM\Messung\CQI-9\Seite2-Inst.pdf", _
Ist mein Verweis falsch?