Guten morgen,
früh am morgen da hab ich wieder sorgen. aber sicher könnt ihr mir helfen.
Windows(Workbooks(master(2)).Sheets(master(5)).Cells(i + 1, 8).Value).Activate
Range(Cells(5, 2), Cells(Cells(5, 2).End(xlDown).Offset(1, 0).Row, 2)).Select
Selection.Copy
Windows(abooktemp).Activate
Cells(2, u).Select
ActiveSheet.Paste
Windows(Workbooks(master(2)).Sheets(master(5)).Cells(i + 1, 8).Value).Activate
so geschrieben funktioniert die Anweisung.
Jetzt wollt ich das etwas zusammenfassen um nicht ständig soviel Textzeilen zu schreiben weil ich das paar mal mache allso hab ich überlegt und raus kam das
Workbooks(Workbooks(master(2)).Sheets(master(5)).Cells(i + 1, 8).Value).Sheets(1).Range(Cells(5, 2), Cells(Cells(5, 2).End(xlDown).Offset(1, 0).Row, 2)).Copy
Cells(2, u).Select
ActiveSheet.Paste
Nur leider bringt er einen Laufzeitfehler 1004 zurück. wer kann helfen.
alle Mappen sind geöffnet und bei der Lösung ist zuvor zuletzt
Windows(abooktemp).Activate gesetzt worden, damit
Cells(2, u).Select
ActiveSheet.Paste funktioniert.
ich hab auch mal das probiert und das funktioniert:
Workbooks(Workbooks(master(2)).Sheets(master(5)).Cells(i + 1, 8).Value).Sheets(1).Cells(3, 1).Copy
Cells(1, u + 2).Select
ActiveSheet.Paste
das funktioniert auch:
Workbooks(Workbooks(master(2)).Sheets(master(5)).Cells(i + 1, 8).Value).Sheets(1).Range("A5:A20000").Copy
Cells(2, u).Select
ActiveSheet.Paste
Danke schon mal für Eure Hilfe
Gruß Sylvio