Office: VBA PDF Export erweitern "Speicherort"

Hallo zusammen,

möchte aus einem Tabellenblatt bestimmte Zeilen als PDF exportieren.

Soweit klappt auch alles, bis auf den Speicherort. Er speichert mir immer unter "Dokumente". Ich möchte aber das er mich fragt wo es gespeichert werden soll, evtl. als Vorschlag den Ordner in dem auch die orig. Tabelle liegt.

Wie kann mein VBA-Code erweitert werden, dass das funktioniert?

Code:

Vielen Dank schon mal für jegliche Hilfe und Tipps!

Gruß
David

:)

 

Das gibst du ja auch vor:
Code:

 

Ok, und wie müsste ich das dann ändern damit sich ein "Speichern unter" Dialogfenster öffnet?

Mit "Range("L1")" nimmt er den in der Zeile stehenden Text als Name für die Datei, was ich auch so wollte.
Nur das mit dem Speicherort, da komme ich selbst nicht drauf...

 

Habe es nun mit folgendem Code auf die Reihe gebracht.

Komisch ist nur, in meiner Testdatei nimmt er als Dateibezeichnung das was in Zelle "L1" steht (habe ich aber nirgends im Code vorgegeben). In meiner eigentlichen Exceldatei wo ich nun den Code eingefügt habe, wird kein Dateiname beim abspeichern vorgegeben. Ich würde aber gerne den Code erweitern wollen, dass er den Text aus Zelle "L1" als Dateiname nimmt. Wie bzw. wo kann ich das dazufügen in meinem bisherigen Code?

Code:

[/Sub Command_Export_to_PDF()
Dim varPath As Variant
Dim RngRange As Range
On Error GoTo Fin
Set RngRange = Union(Range("D1:O44"), Range("D44:O44"))
varPath = Application.GetSaveAsFilename( _
InitialFileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name, _
FileFilter:="PDF(*.pdf), *.pdf", _
Title:="Speichern als PDF")
If Not varPath = False Then
RngRange.ExportAsFixedFormat 0, varPath, , , , , , True
Else
MsgBox "Abbrechen geklickt..."
End If
Fin:
Set RngRange = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
CODE]

 

Code:

Warum das immer auftaucht verstehe ich nicht! Wo habt ihr das her, von irgendeiner speziellen Seite?

Wenn ich beim Autofahren auf die Bremse drücke, dann muss mir das Navi doch nicht sagen dass ich auf die Bremse gedrückt habe...oder vll. doch?!*eek.gif*

Code:

Nachtrag:
das hier macht wenig Sinn: Union(Range("D1:O44"), Range("D44:O44"))

 

Ok, das mit" Union(Range("D1:O44"), Range("D44:O44"))" machte wenig Sinn...

Dein vorgeschlagener Code funktioniert an sich super, jedoch muss ich mit dem jedes Mal den Speicherort neu suchen. Vorher war der vorgeschlagene Speicherort der, in dem die Excel-Datei liegt.

Gibt es keine Möglichkeit "...& Range("L1")..." in meinen Code mit einzubringen? Habe es vergeblich versucht...

 

Wobei wir wieder bei Beitrag #1 wären *wink.gif*

 

Mit den zwei zusätzlichen Codezeilen kann man sowohl einen Titel als auch einen Basispfad vorgeben. Vielleicht hat der TE das ja so gemeint. Code:

Edit: streiche Application.Path, setze ThisWorkbook.Path oder ggf. ActiveWorkbook.Path

 

Ergänze innerhalb der with Anweisung

.InitialFileName = ThisWorkbook.Path & "\" & Range("L1").Value & ".pdf"

 

Traumhaft! Funktioniert einwandfrei.

Vielen Dank für Eure Hilfe!

Gruß
David