ich habe einen code zur Speicherung der ganz gut funktioniert, aber immer nur in meinen Excel Standard Ordner. Ich möchte aber in den Ordner der Tabelle speichern.
Kann mir jemand helfen? Vorab schon mal vielen Dank.
Klaus
Sub AlsPDF_br_01_1_Speichern()
'Aufforderung Speicherort festlegen.
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
'Meldung definieren.
Mldg = "Tabelle als PDF speichern?"
' Schaltflächen definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton1
Titel = "Speicherort für die PDF Datei wählen!"
'Meldung anzeigen.
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)
'Benutzer hat "Ja" gewählt.
If Antwort = vbYes Then
'Benutzer hat "Nein" gewählt.
ElseIf Antwort = vbNo Then
Exit Sub
End If
'Als PDF speichern.
Dim pdfDateiName As String
Dim pdfname As Variant
'Ausrichtung querformat
Worksheets("br-01-1").PageSetup.Orientation = xlLandscape
'Format automatisch anpassen
Worksheets("br-01-1").PageSetup.Zoom = False
Worksheets("br-01-1").PageSetup.FitToPagesWide = 1
Worksheets("br-01-1").PageSetup.FitToPagesTall = 1
'Datei als "PDF" speichern
pdfDateiName = "br-01-1-" & Date & ".pdf"
pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF _
files, *.pdf", Title:="PDF speichern")
If pdfname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
Exit Sub
End If
End Sub