Zellen zwischen workbooks kopieren
05.11.2007 17:16:00
Gregor
beim Öffnen eines workbooks (A) bzw. UserForm_Initialize möchte ich einen Zellenbereich aus einem anderen workbook (Prüfplan) reinkopieren.
Ist nicht das Tabellenblatt (Stammdaten) aktiv, das die zu kopierenden Zellen enthält, so erhalte ich folgende Meldung:
Laufzeitfehler 1004:
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
Nachfolgend der Code:
Private Sub UserForm_Initialize()
With usrPP
.Height = Application.Height
.Width = Application.Width
End With
Application.Workbooks("Prüfplan.xls").Activate
Workbooks("Prüfplan.xls").Sheets("Stammdaten").Range("G2:I2").Select
Selection.Copy
Application.Workbooks("A.xls").Activate
Range("A2:C2").Select
ActiveSheet.Paste
End Sub
Eigentlich wollte ich die zu kopierenden Daten direkt aus zwei Textfeldern einer Userform (Workbook Prüfplan) in das workbook "A" kopieren, jedoch hatte ich keine Idee.
Danke im voraus und Grüße
Gregor