ich stehe vor folgendem Problem:
Ich exportiere aus einer Excel-Datei ("ursprungsdatei.xls") mit mehreren Tabellenblättern ein bestimmtes Blatt in eine externe Datei (Kopieren des Blattes zur Achivierung beliebig benennbare Datei). Hierfür nutze ich folgenden Code:
Sub abspeichern_Tabelle1()
'Speichern des einzelnen Tabellenblattes "Tabelle 1" in eine externe Datei
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test" & "\" & neuName & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Die Datei wurde unter " & ThisWorkbook.Path & "\test\" & neuName & ".xls gespeichert !" _
_
_
_
, _
vbibformation
Workbooks(neuName & ".xls").Colors = ThisWorkbook.Colors
With ActiveSheet.Parent.VBProject.vbcomponents(ActiveSheet.CodeName).codemodule
.DeleteLines 1, .CountOfLines
End With
Workbooks(neuName & ".xls").Save
Workbooks(neuName & ".xls").Close
Workbooks("ursprungsdatei.xls").Activate
Application.ScreenUpdating = True
End Sub
Ein Abspeichern der Datei unter beliebigem Namen funktioniert, auch das Überschreiben einer bereits existierenden Datei ist kein Problem. Breche ich jedoch den Export-Dialog ab, oder entscheide mich gegen das Überschreiben einer existierenden Datei ("Möchten Sie die existierende Datei überschreiben" -> Abbrechen/Nein) erscheint ein Laufzeitfehler.
Wie kann ich einen "Notausgang" aus dem Exportdialog so einfügen, dass der Laufzeitfahler nicht mehr erscheint?
Danke für Eure Vorschläge und Hilfe,
Markus