Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
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

Makro für" Speichern unter" und "Dateinamen"

Makro für" Speichern unter" und "Dateinamen"
08.01.2018 12:37:28
Andreas
Hallo zusammen,
hab da ein Problem mit einem Makro.
Da ich Makro nur mit Recorder kann bin ich schon ziemlich aufgeschmissen.
Hab eine vereinfachte Datei hochgeladen.
https://www.herber.de/bbs/user/118775.xlsm
Mein Arbeitsblatt besteht (Druckbereich) 6 Seiten.
Diese möchte ich mittels Button (6Stk.-ein Button für jede Seite extra)
unter einem vorgegebenen Pfad, als "pdf" und mit vorgegebenen "Dateinamen" aus
dem Excel-Arbeitsblatt, abspeichern.
Mit dem Recorder bekomme ich das soweit hin, dass der Pfad, das "pdf" speichern und die "Seitenauswahl" funktioniert.
Den Dateinamen bekomme ich aber nicht auf die Reihe.
Immer wenn ich mit Range("E9")&Range("L1") arbeite; wäre der Dateiname für Seite1,
bekomme ich Fehlermeldungen.
Hoffe ihr könnt mir helfen.
Vielen Dank im voraus
LG Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Makro für" Speichern unter" und "Dateinamen"
08.01.2018 12:46:06
Bernd
Hi,
teste mal so:
Sub Seite1_speichern()
' Seite1_speichern Makro
ChDir "D:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & Range("E9") & Range("L1"), Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub
MfG Bernd
AW: Makro für" Speichern unter" und "Dateinamen"
08.01.2018 12:49:03
UweD
Hallo
ungetestet:
... Filename:= "D:\" & Range("E9") & "_" & Range("L1") & ".pdf",

LG UweD
AW: Makro für" Speichern unter" und "Dateinamen"
08.01.2018 13:49:59
Andreas
Hallo Uwe, hallo Bernd,
vielen Dank für eure Antwort,
funktioniert genauso wie ich mir das vorgestellt habe.
Vielen, vielen Dank
und noch einen schönen Tag,
LG Andreas
Anzeige
gern geschehen owT
08.01.2018 13:52:43
UweD

182 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige