Dateiname aus .Range für PDF
18.11.2021 19:58:25
Stefan
seit Stunden probiere ich jede erdenkliche Variante aus, die ich mit Hilfe von Google ausfindig machen kann aber leider führte bisher nichts zum Erfolg.
Es geht um folgendes: Mit dem unten geschriebenen Code (Sub... End Sub habe ich weggelassen) speichere ich eine Datei unter einem Pfad den sich die Person die auf den PDF Button klickt selber aussuchen kann. Leider ist jedoch immer das Dialogfeld leer. Ich würde gern aus der Zelle C14 den Text kopieren, sodass die Datei darunter einfach gespeichert werden kann, ohne, dass man den Text manuell eingeben muss. Ich habe diverse Möglichkeiten hinter dem "Application.GetSaveAsFilename" ausprobiert aber wie gesagt, bisher führte nichts zum Erfolg.
Bitte um Rat, es ist wirklich zum Haare Raufen :( Vielen Dank im Voraus. LG Stefan M.
Dim DateiName As String
DateiName = Application.GetSaveAsFilename
Range("B14:C14").Font.ColorIndex = 1
Range("B14:C14").Font.Bold = True
Range("B14:E31").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Range("B14:C14").Font.ColorIndex = 2
Range("B14:C14").Font.Bold = False