Grafiken in PDF abspeichern

Hallo,
ich hatte bereits vor ein paar Tagen diese Frage gestellt, jetzt aber eine einfache Beispieldatei erstellt, die es Euch hoffentlich erleichtert, mir zu helfen.
In der Beispieldatei sind im Register Daten mehrere Personen mit deren Umsätzen dargestellt. Ich muss monatlich für alle Personen (Liste ist natürlich verkürzt) die Grafik erzeugen und als PDF in einem bestimmten Ordner ablegen. Danach sind die Übersichten der einzelnen Leute für z. B. den Vertriebsleiter einzusehen.
Die Liste der Personen ist ziemlich lang. Es ist lästig, jedes Mal die Grafik manuell anzustoßen und manuell abzuspeichern mit einem neuen Dateinamen.
Mein Wunsch ist es, dass es hier eine Schleife gibt, die automatisch für alle Personen nacheinander die jeweilige Grafik erstellt und in einem vorgegebenen Ordner (der Pfad kann im VBA-Code fest hinterlegt sein) mit dem Dateinamen abspeichert.
Der Dateiname soll wie folgt aussehen:
Name_Standort_Monat
Wobei sich der Monat aus dem zuletzt gepflegten Monatswert ergibt, im Beispiel also Juli 2014.
Wenn ich z. B. für die Person Thorsten Standard die Grafik erstellen würde, würde der Dateiname wie folgt heißen:
Standard_Hannover_Juli2014
Die Beispieldatei findet Ihr hier:
https://www.herber.de/bbs/user/90238.xlsm
Ich hoffe, dass Ihr mir helfen könnt.
Viele Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Grafikerstellen() Dim zeile As Long Dim spalte As Long Dim Berichtsmonat As String Dim Dateiname As String Dim myPath As String myPath = "Dein Speicherpfad" zeile = 2 spalte = 3 With Sheets("Daten") Do While .Cells(zeile, spalte) "" Sheets("Grafik").Cells(2, 1) = .Cells(zeile, spalte) For i = 4 To 16 Sheets("Grafik").Cells(2, i - 2) = .Cells(zeile, i) Next Sheets("Grafik").Select Berichtsmonat = Format(Sheets("Grafik").Cells(1, Sheets("Grafik").Range("B2").End( _ xlToRight).Column), "MMMMYYYY") Dateiname = .Cells(zeile, spalte) & "_" & .Cells(zeile, spalte + 1) & "_" & _ strMonat 'der Dateiname ist jetzt noch ohne extension!! 'hier kommt Deine Speichern_unter_Funktion 'vielleicht muss da noch was angepasst werden?! 'Application.CommandBars.ExecuteMso "FileSaveAsPdfOrXps" zeile = zeile + 1 Loop End With End Sub

Hallo Jochen,
sorry für die späte Antwort. Es mussten Ostereier versteckt werden.
Ich habe den Code eingefügt, jedoch kommt die Fehlermeldung "Objekt erforderlich". Ich habe vor den Code noch "activesheet" ergänzt, also das Blatt, wo die Grafik ist.
activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & "\" & Dateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Falls andere den Beitrag hier lesen: Es geht darum, dass eine Grafik erstellt wird, die ich als PDF abgespeichert haben will. Das Abspeichern soll aber automatisch funktionieren ohne Rückfrage. Das heißt, es muss vorher der Dateiname erstellt werden (Speicherort kann fix sein).
Gruss

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Grafiken in PDF abspeichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread