Copy / Paste in neue Mappe Fehler 438
16.07.2013 13:14:29
Markus
ich habe ein Makro geschrieben, dass nach diversen Filtervorgängen in einer Arbeitsmappe, den gewünschten Bereich kopiert. Nun soll dies in einer anderen bereits offnen Arbeitsmappe auf einem bestimmten Arbeitsblatt eingefügt werden, doch leider bekomm ich immer den Laufzeitfehler 438. Für die Position : Range("A2").Paste
Ich verseht das nicht so recht, da ich vorab ja die entsprechende Mappe und das Blatt aktiviere.
Vielleicht kann mir mal einer auf die Sprünge helfen, anbei der Codebereich.
Danke schon mal.
Sub kopieren
Sheets("Bericht 1").Range("C5:G10000").Copy 'nach Filtervorgang Bereich kopieren
Windows("Template - Monthly Report 2013.xlsm").Activate
If Workbooks("Template - Monthly Report 2013.xlsm").Sheets("July").Range("A2").Value = "" Then
Workbooks("Template - Monthly Report 2013.xlsm").Worksheets("July").Activate
Range("A2").Paste
End If
End Sub