Ich habe hier folgendes Makro
gefunden:



Private Sub Speichern_Click()

With
ThisWorkbook.Worksheets("Rechnung")


.ExportAsFixedFormat _


Type:=xlTypePDF, _


Filename:="S:\Ambulante_AT\TeilnehmerInnen ambulanten AT\Luderwicht\"
& .Range("F19").Text & " " &
.Range("F18").Text & ".pdf", _


Quality:=xlQualityStandard, _


IncludeDocProperties:=True, _


IgnorePrintAreas:=False, _


OpenAfterPublish:=False

End With

End Sub



Das PDF wird auch gespeichert.
Allerdings überschreibt er immer die Datei. Ich brauche eine Abfrage für den
Anwender, ob die alte Rechnung überschrieben werden soll, bzw. wenn die Datei
schon vorhanden ist, das die Rechnungsnummer angepasst werden soll. Ich habe
schon viel gegoogelt aber nichts gefunden. Und leider reichen meine Kenntnisse
hier nicht aus.

Kann mir jemand helfen und dem Marko
entsprechend anpassen? Währe für Helfe dankbar.



Gruß Andreas

Prüfe vorher, ob die Datei schon existiert.
msdn.microsoft.com/en-us/library/x23stk5t(v=vs.84).aspx

Wenn du automatisch umbenennen willst, wirfst du eine MsgBox mit OK/Cancel

Wenn du den Benutzer auswählen lassen willst, kannst du das mittels FileDialog(msoFileDialogSaveAs) bestimmen lassen.

Hallo petaod,
vielen Dank für deine schnelle Antwort. Leider habe ich keine Ahung, wann ich die Abfrage einsetzen muss. Kannst du mich das an einem Beispiel zeigen?

Gruß Andreas

Ernsthaft? Die Links enthalten doch Beispielcodes.

Super vielen dank

Ich habe gerade gesehen, dass ich gestern in Bierlaune ein paar versehentliche Syntaxfehler eingebaut habe, aber das wirst du ja vermutlich selbst gemerkt und korrigiert haben.

Ich korrigier's trotzdem.