Hallo Herber Fans,
ich stolperte heute über ein Problem, von dem ich dachte die Logiken im Griff zu haben. Aber dem war nicht so. Es geht um selektierte WorkSheets in einzelnen (parallel geöffneten WorkBooks).
Die Situation: Es gibt ein Target WorkBook in welches aus allen anderen geöffneten WorkBooks Daten hineinkopiert werden sollen. z.T. sind alle WorkSheets eines WorkBooks selektiert (gruppiert). Aus einem solchen gruppierten WorkSheet wird nun ein bestimmter Bereich kopiert und soll eingefügt werden. Dabei kommt es nun zum Fehler 1004, „Die Informationen können nicht eingefügt werden, da der Bereich zum Kopieren und der Bereich zum Einfügen unterschiedliche Formate und Großen haben.“
Der prinzipielle Ursprung dieses Fehlers ist mir klar, ich dachte jedoch wenn ein WorkSheet dezidiert angesprochen wird (ThisWorkbook.Worksheets(1).Range("A1:A3").Copy) kann die Gruppierung umgangen werden.
Um das Problem zu umgehen müßte ich, nachdem ich feststellte, welche WorkSheets initial selektiert waren, alle SelectedSheets Instanzen aufheben. Das ist nicht optimal, da die SelectedSheets Ansichten eine gute Hilfestellung sind, um zu sehen, aus welchen Sheets die Daten zusammengeführt werden.
Ich habe in der Beispieldatei die Codezeilen hinterlegt, die mein Dilemma illustrieren. Was kann ich tun, um trotz SelectedSheets wirklich nur den gewünschten Bereich zu kopieren und einfügen zu können?
https://www.herber.de/bbs/user/83295.xlsm
Über einen Lösungsansatz würde ich mich sehr freuen.
Auf jeden Fall schon einmal vielen Dank für die bisherige Aufmerksamkeit.
Gruß aus Berlin, Andreas Hanisch