habe folgendes Problem,
ich möchte auf Knopfdruck alle Daten die in einer nicht geöffneten Datei(Name:Vorlagen.xls, Tabelle: Vorlagen)stehen in die gerade aktiven Datei (Name: Berichtsheft.xlt, Tabelle: Vorlagen) einfügen.
habe folgenden Code:
in Datei Berichtsheft:
Private Sub CommandButton1_Click()
Dim awb As String
awb = ActiveWorkbook.Name
Application.Workbooks.Open ("C:\...\Vorlagen.xls")
Cells.Copy
Windows(awb).Activate
ActiveWorkbook.Worksheets("Vorlagen").Cells.Paste '<- hier Laufzeitfehler 438'
End Sub
hoffe jemand kann mir helfen,
danke schon mal im voraus
Gruß
Andreas