Ich habe irgedwie ein Problem mit einer doch eigentlich sehr
einfachen Sache: Ich will Arbeitsblätter aus einer Datei
kopieren und in thisworkbook einfügen.
Warum reagiert Excel mit einem Automatisierungsfehler ?
Sub einlesen()
Dim wkbQuelle As Workbook
Dim wksEditorNew As Worksheet
Dim wksVorschauNew As Worksheet
Dim wksEditorOld As Worksheet
Dim wksVorschauOld As Worksheet
Set wksEditorOld = ThisWorkbook.Worksheets(Blattname_Editor)
Set wksVorschauOld = ThisWorkbook.Worksheets(Blattname_Vorschau)
Set wkbQuelle = Workbooks.Open(FileToOpen, 0, True)
On Error Resume Next
Set wksEditorNew = wkbQuelle.Worksheets(Blattname_Editor)
Set wksVorschauNew = wkbQuelle.Worksheets(Blattname_Vorschau)
.
.
.
wksEditorNew.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.count) << ab hier Fehler
' Meldung > "Automatisierungsfehler"
' Beim Debuggen > "Es kann nicht in den Haltemodus gewechselt werden"
wksVorschauNew.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.count)
End Sub
Schon mal vielen Dank im Voraus
Zacharias