Hallo liebe Community,

ich hoffe ihr könnt mir bei meinem Code Konstrukt weiterhelfen :)

Ich habe einen VBA Code erstellt, wo die Exceltabelle als PDF gespeichert wird und wie gewünscht auch benanntt wird.

Dies funktioniert so weit auch super!

Private Sub CommandButton1_Click()
  Dim vntFile As Variant
  vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Range("B15").Value & "_" & _
ActiveSheet.Range("I10").Value & "_" & _
ActiveSheet.Range("B19").Value & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
  
  If vntFile <> False Then
    ActiveSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=vntFile, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=True ' wenn nicht angezeigt werden soll False
  End If
End Sub

Allerdings wird im Prinzip die Funktion „Speichern unter“ ausgeführt, wo ich das Zielspeicherverzeichnis noch selber wählen soll.

Wie müsste der Code lauten, wenn ich die PDFs automatisch in ein fix definiertes Zielverzeichnis ablegen möchte? ( N:\Documents and Settings\d2659)

Würde mich sehr über Hilfe freuen!

Danke!

lg. Reini