Tabellenblatt über Dialog zur Arbeitsmappe
Christoph
Ich will über einen "Datei öffnen" Dialog das erste Tabellenblatt aus einer ausgewählten Excel-Datei zu meiner aktuellen Arbeitsmappe hinzufügen. Ich habe dieses Makro dass funktioniert. Das Problem: wenn ich auf den "Abbrechen"-Button klicke kommt ein Laufzeitfehler.
Muss ich den Fehler abfangen oder sowas?
Wer kann mir weiterhelfen?
Vielen Dank schonmal,
Christoph
___________________________________________
Sub BCAd()
Dim Dateiname As String
Dateiname = Application.GetOpenFilename("Excel-Dateien (*.xls), .xls")
If Dateiname = vbNullString Then Exit Sub
Workbooks.Open Filename:=Dateiname
Dateiname = ActiveWorkbook.Name
Worksheets(1).Copy after:=Workbooks("MeineDatei.xls").Worksheets _(Worksheets.Count)
Workbooks(Dateiname).Close savechanges = False
End Sub