Office: Laufzeitfehler 1004 bei Copy Paste

Hallo liebe VBA-Profis,

habe ein Makro erstellt, um Daten aus einem offenen Excel in ein anderes zu kopieren, aus dem auch der Code aufgerufen wird.
Allerdings erscheint in der Zeile

letzteZeileE = wsData.Cells(Rows.Count, 5).End(xlUp).Select

die Fehlermedlung 1004. Ich bin wirklich ratlos, woran das liegen kann. *rolleyes.gif*
Für Eure Hilfe bin ich sehr dankbar!
Hier mein vollständiger Code:



Private Sub Auslastung_übernehmen_Click()

Dim wbData As Workbook
Dim wsData As Worksheet
Dim wbTarg As Workbook
Dim wsTarg As Worksheet

Set wbTarg = ThisWorkbook 'Mappe mit Code, Kapazitätsübersicht
Set wsTarg = wbTarg.ActiveSheet

Set wbData = Workbooks(Workbooks.Count) 'Excel aus ERP-Software
Set wsData = wbData.ActiveSheet



'Kopieren und Einfügen der jeweils letzten Werte der Spalten, in denen die Ressourcen stehen


letzteZeileE = wsData.Cells(Rows.Count, 5).End(xlUp).Select '5 für Spalte E
Selection.Copy

wsTarg.Activate
Range("T16:T22").Select
Selection.PasteSpecial xlPasteAll


letztezeileH = wsData.Cells(Rows.Count, 8).End(xlUp).Select '8 für Spalte H
Selection.Copy

wsTarg.Activate
Range("T9:T15").Select
Selection.PasteSpecial xlPasteAll

Set wsData = Nothing
Set wbData = Nothing
Set wsTarg = Nothing
Set wbTarg = Nothing

End Sub



Gruß ginm

:)

 

Was soll das, ginm?

Bevor jemand das gleiche wie ich antwortet, sollte dieser sich zunächst diesen Thread durchlesen:
http://www.ms-office-forum.net/forum...d.php?t=342645

Gruß Ralf

 

Hallo Ralf,

hast Recht, den Verweis zum Thread habe ich vergessen.
Ich bin damit aber noch immer nicht zum Durchbruch gelangen. Die Frage ist also noch aktuell.


Gruß ginm

 

du sollst nicht auf irgendwas verweisen, sondern das Thema da zu Ende bringen, wo du es begonnen hast.
Da gibt es nämlich bereits Antworten auf dein Problem. Du musst nur lesen, verstehen (, ggf rückfragen) und umsetzen.