wie es immer so ist. Man liest viel im Forum mit und findet oft Hilfe. Allerdings habe ich zu meinem Problem keine Lösung gefunden und daher wende ich mich heute persönlich an euch.
Problem:
Ich habe eine ziemlich große Datei welche sich nach verschiedenen Kriterien filtern lässt. Ich habe einen Code rausbekommen, welcher mir die aktuelle Ansicht als PDF ausdruckt.
Bennant werden soll die Datei u.a.nach dem Wert, der in Spalte C (nachdem ein Filter gesetzt wurde) steht. Zur Zeit ist es so, das eine feste Zeile den Namen der Tabelle vorgibt, was aber nicht gewünscht ist.
Hier mein aktueller Code:
Sub Drucke_Stellenplan()
Const DateiPfad = "irgendein Dateipfad/"
Dim DateiName As String
DateiName = DateiPfad & Range("c1073") & " Stellenplan " & Range("G1073") & ".pdf" ' Org + _
_
aktuelles Datum
Range("c1:bh1072").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Wie gesagt, die Datei wird immer nach den Werten in c1073 und g1073 benannt, soll aber nach C... und G... benannt werden, die nach dem Filtern ganz oben stehen.
Wenn jemand von euch hier eine Idee hätte würde mir das sehr weiterhelfen.
Vielen Dank und liebe Grüße,
Thomas