Speicherabfrage

Hallo Excelfreunde,
ich benutze das untenstehende Macro zum erstellen einer PDF.
Soweit funktioniert es schon. Ich möchte nur noch die Möglichkeit erhalten falls diese Datei schon vorhanden ist > Frage möchten Sie diese Datei überschreiben? Zur Zeit merke ich zwar das es diese Datei schon gibt aber dann wird das Makro nach dem Hinweis gleich beendet.
Kann mir jemand dabei helfen?
MFG Thomas
Sub AAAA_neu_pdf_erstellen()
On Error Resume Next
Dim varFilename As Variant
'"\Desktop\" & Range("A1")
varFilename = Application.GetSaveAsFilename( _
InitialFileName:=Sheets("Bekleidung").Range("ZZ1"), _
FileFilter:="PDF (*.pdf), *.pdf", _
Title:="als PDF speichern")
If Dir(varFilename) = "" Then
If varFilename False Then
ThisWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varFilename, _
OpenAfterPublish:=True, _
IgnorePrintAreas:=False
End If
Else
MsgBox "Die verwendete Rechnung ist bereits vorhanden. Bitte lösche erst die vorhandene oder vergebe ein neuen Namen"
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
hier mal ein neuer Ansatz:

Sub AAAA_neu_pdf_erstellen()
Dim varFilename As String, i As Integer
On Error Resume Next
Nochmal:
varFilename = Application.GetSaveAsFilename( _
InitialFileName:=Sheets("Bekleidung").Range("A1"), _
FileFilter:="PDF (*.pdf), *.pdf", _
Title:="als PDF speichern")
If Dir(varFilename)  "" Then
i = MsgBox("Die verwendete Rechnung ist bereits vorhanden." & vbCrLf & vbCrLf _
& "Soll sie gelöscht und gespeichert werden?" & vbCrLf & vbCrLf _
& "Ansonsten vergebe einen neuen Namen!", vbYesNoCancel Or vbCritical, "PDF-Datei speichern" _
)
If i = vbCancel Then Exit Sub
If i = vbNo Then GoTo Nochmal
Kill varFilename
End If
ThisWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varFilename, _
OpenAfterPublish:=True, _
IgnorePrintAreas:=False
End Sub

Den Variablentyp für varFilename würde ich nicht als Variant declarieren. string ist hier eindeutiger.
Dann ggf. die Abfrage vor dem Exportieren platzieren, damit der User die Wahl hat.
Die Kill-Anweisung kann ggf. auch entfallen, falls die Export-Anweisung ohne weitere nachfrage überschreibt. Hab ich nicht getestet.
viele Grüße
Karl-Heinz

Sub AAAA_neu_pdf_erstellen() 'On Error Resume Next Dim varFilename As Variant '"\Desktop\" & Range("A1") varFilename = Application.GetSaveAsFilename( _ InitialFileName:=Sheets("Bekleidung").Range("ZZ1"), _ FileFilter:="PDF (*.pdf), *.pdf", _ Title:="als PDF speichern") If Dir(varFilename) > False Then ThisWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=varFilename, _ OpenAfterPublish:=True, _ IgnorePrintAreas:=False End If End If

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread