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

Hilfe bei einem Makro

Hilfe bei einem Makro
11.03.2016 09:20:39
Tom
Hallo,
vielleicht kann mir ja jemand bei einem Makro helfen. Ich kenne mich zwar in Access und Excel gut aus, jedoch komme ich mit Makro´s noch nicht klar.
Ich habe folgendes kleines Makro aufgezeichnet:
Sub speichern_unter()
' speichern_unter Makro
Sheets("Blatt_1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\Temp\Ablage\20090708.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Ich möchte aber folgendes erreichen:
Blatt_1 und Blatt_2 sollen in einer PDF-Datei im angegebenen Ort gespeichert werden. Als Besonderheit noch in Blatt_3 steht in der Zelle B1 ein Datum z.B. 08.07.2009. Hier soll sich das Makro den Dateinamen holen. Der Dateiname soll in diesem Fall 20090708 sein, also Datum gedreht.
Vielleicht kann mir ja jemand helfen.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei einem Makro
11.03.2016 09:57:22
Steve
Hallo Tom,
probier es mal so:
Sub Speichern_Unter()
' speichern_unter Makro
Sheets(Array("Blatt_1", "Blatt_2")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="X:\Temp\Ablage" & Format(Sheets("Blatt_3").Range("B1"), "YYYYMMDD") _
& ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
lg Steve

AW: Hilfe bei einem Makro
11.03.2016 11:11:51
Tom
Super, das klappt wunderbar.
Vielen Dank Steve und ein schönes WE!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige