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
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