Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speichern

Speichern
06.10.2018 11:32:19
Dirk
Hallo zusammen,
für euch sicher kein Problem aber ich bekomme es nicht hin.
Mit diesem Code speichere ich Daten, was auch gut funktioniert.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\XXX\XXX\XXX\XXX\XXX\XXX\YYY\XXX.Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Ich würde jetzt gerne den Bereich YYY als Variable ausgeben aber das funktioniert leider nicht.
Bin für jede Hilfe Dankbar!
Gruß Dirk

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern
06.10.2018 12:24:20
Henner
Hallo Dirk
So? (Ungetestet)

Dim strFolder As String
strFolder = Sheets("Tabelle1").Range("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\XXX\XXX\XXX\XXX\XXX\XXX\" &  _
strFolder & "\XXX.Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Gruss Henner
AW: Speichern
06.10.2018 13:21:30
Dirk
Hallo Henner,
klappt wunderbar, danke dafür.
Gruß Dirk
AW: Speichern
06.10.2018 12:24:22
Henner
Hallo Dirk
So? (Ungetestet)

Dim strFolder As String
strFolder = Sheets("Tabelle1").Range("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\XXX\XXX\XXX\XXX\XXX\XXX\" &  _
strFolder & "\XXX.Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Gruss Henner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige