Dateiauswahl übernehmen

[Gast 123]

Hallo

freut mich das dein Code durch meine Tipps und Eigenarbeit soweit gediegen ist.  Gratuliere ....

Beim Öffnen der Mappe aus der du kopierst kann man nicht sicher sein welches ActiveSheet gerade ausgewählt ist. Deshalb empfehle ich bei dem Kopiervorgang VOR Range().Copy noch die gewünschte Tabelle als Worksheet mit anzugeben.  Dann ist eine Verwechslung ausgeschlossen.

'Plan A    Worksheets("Plan A").Range("B6:U110").Copy

mfg  Gast 123

[Mugel]

Hallo Gast 123, 

vielen Dank für deine schnelle Hilfe. 
Leider kam ich erst heute dazu alles zu aktualisieren ... und siehe da P E R F E K T ! ! 

Wenn man nun die falsche Datei zum kopieren ausgewählt hat, wird lediglich eine Fehlermeldung (Laufzeitfehler 9: Index außerhalb des gültigen Bereichs) angezeigt die man dann mit "Beenden" weg klicken muss und das falsche Tabellenblatt schließen.
Jedenfalls wird nichts mehr auf die falschen Seiten kopiert.


Viele Grüße
Mugel