Hallo,
eine komplette Lösung kann ich dir jetzt nicht liefern.
Aber ich fang mal bei Problem 2 an.
Ich habe es so verstanden dass im Zielbereich erst ab Zeile 12404 angefangen werden soll.
Da mußt du bei der Schleife einfach bei Zeile 12404 anfangen, also:
For i = 12404 to .....
Falls du den Quellbereich meinst dann müßtest du die Zeile
Set Bereich = Datenbasis.Range( "A1:G" & letzteZeile)
Anpassen Also dann Set Bereich = Datenbasis.Range( "A12404:G" & letzteZeile)
Zum Problem 1, das ist eigentlich auch nicht so schwer (nur habe ich derzeit nicht die Zeit das alles zu testen)
Du benötigst neben der Variable "Dim Arbeitsmappe As Workbook" eine Zweite als QuellArbeitsmappe
Dim QuellArbeitsmappe as Workbook
Dann mußt du deine Quellarbeitsmappe öffnen und dieser Variablen zuordnen (Google mal nach öffnen)
Jetzt weißt du aus der Quellmappe das Quellarbeitsblatt zu.
Set Datenbasis = QuellArbeitsmappe.Worksheets( "Tabelle 1" )
Prinzipell wäre es das dann, du mußt am Ende dann noch die Quelldatei wieder schließen.
|