Per VBA Tabellenblatt speichern...
10.02.2016 20:33:42
Ina
ich möchte per VBA die Tabelle TAB1 sichern.
Im Net habe ich folgenden Code gefunden, der allerdings einen Nachteil hat...
Sobald der Code ausgeführt wird, kann ich im Windows-Fenster "Speichern unter" zwar auf Abbrechen klicken, aber es wird trotzdem eine Datei mit Namen "FALSCH" gespeichert.
Wie kann der Code so angepasst werden, das er beim Klick auf den Button Abbrechen auch beendet wird?
Wer kann den Code entsprechend anpassen? Danke für eure Hilfe!
LG Ina
Sub SICH_GESAMT_1_PDF()
With Sheets("GESAMT")
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & _
.Range("B3") & " " & Range("R2") & " (Gesamtübersicht)" _
_
_
& ".pdf", "PDF-Dateien (*.pdf), *.pdf")
End With
Sheets(Array("GESAMT")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
If pdfName = "Falsch" Then Exit Sub
End Sub
Anzeige