Hallo Fedjo,
danke erst mal für Deine Antwort.
Sorry, dass ich jetzt erst Antworte aber ich kann das nur auf der Arbeit ausprobieren, und da war ich So. nicht.
Nun zu Deinem Makro:
Es funktioniert leider nicht, aber das liegt sicherlich an meiner Inkompetenz!
Ich werd jetzt die Sache darlegen wie ich sie bzw sie nicht verstehe.
Bis hier hin,
Sub TGB_Ausdruck()
Sheets("TGB").Select
Range("B8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
... ist alles klar
Jetzt vermisse ich Deinem Makro den Teil, der die pdf Datei erzeugt, nämlich diesen:
Application.ActivePrinter = "PDFCreator auf Ne00:"
Selection.PrintOut Copies:=1, ActivePrinter:="PDFCreator auf Ne00:", _
Collate:=True
Den habe ich erzeugt, indem ich auf "Drucken "gegangen bin aber dann in der Druckeinstellung den "PDF Creator" gewählt habe,
...funktioniert ja auch.
Jetzt schreibst Du Pfad m ändern.
Der Pfad, wo die Exel Tabelle liegt, lautet:
C:\Dokumente und Einstellungen\sprfuz\Eigene Dateien\Ausdruck Funktagebuch" & "" & Date, Quality:= _
Ich nehme an, das der Begriff \ Ausdruck Funktagebuch\vom Makro in den Dateinamen gesetzt wird.
Aber an welcher Stelle im Makro ist die Zelle E9 integriert in welcher das Datum steht?
Ich hatte das Makro jetzt wie folgt angepasst:
Sub TGB_Ausdruck_1()
Sheets("TGB").Select
Range("B8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.ActivePrinter = "PDFCreator auf Ne00:"
Selection.PrintOut Copies:=1, ActivePrinter:="PDFCreator auf Ne00:", _
Collate:=True
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
C:\Dokumente und Einstellungen\sprfuz\Eigene Dateien\Ausdruck Funktagebuch" & "E9" & Date, Quality:= _
xlQualityStandard , IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
...aber wie schon gesagt, es funktioniert nicht.
Der 2. teil des Makros wird rot und es wird Fehler beim Komplimieren - Syntaxfehler angezeigt.
Diejenigen mit Durchblick, werden sich totlachen über meine Inkompetenz, sorry!
Gruß Kurt
Noch eine Anmerkung: Auch wenn ich "E9" wieder entferne, von der Stelle, wo das garantiert nicht hingehört funktioniert das aucht nicht - leider.