ich möchte aus verschiedenen Mappen gefüllte Zellen in eine Exceldatei kopieren.
Ablauf sollte sein:
Sammelmappe (k10) ist offen und von dort wird der Code gestartet.
Erste Datei (k1a) wird geöffnet. Bereich von A1 bis letzte gefüllte Zelle in Spalte H in die Sammelmappe kopieren. Erste Datei schließen.
Dann wird die 2. Datei (k2a) geöffnet. Bereich von A1 bis letzte gefüllte Zelle in Spalte H auch in die Sammelmappe kopieren. zweite Datei schließen usw...
Dazu habe ich folgenden Codeteil:
Dim ende As Long
ende = Cells(65536, 1).End(xlUp).Row
Workbooks.Open Filename:=k1a
Range("A1:H" & ende).Copy Workbooks(k10).Sheets(l1a).Range("b1")
Workbooks(k1b).Close SaveChanges:=False
Workbooks.Open Filename:=k2a
Range("A1:H" & ende).Copy Workbooks(k10).Sheets(l1b).Range("b1")
Workbooks(k2b).Close SaveChanges:=False
Workbooks.Open Filename:=k3a
Range("A1:H" & ende).Copy Workbooks(k10).Sheets(l1c).Range("b1")
Workbooks(k3b).Close SaveChanges:=False
Workbooks.Open Filename:=k4a
Range("A1:H" & ende).Copy Workbooks(k10).Sheets(l1d).Range("b1")
Workbooks(k4b).Close SaveChanges:=False
Workbooks.Open Filename:=k5a
Range("A1:H" & ende).Copy Workbooks(k10).Sheets(l1e).Range("b1")
Workbooks(k5b).Close SaveChanges:=False
Mir macht die Variable "ende=....." Probleme. Denn sie sucht nicht die letzte gefüllte Zelle der Spalte H in der gerade geöffneten Mappe, sondern nimmt einfach einen festen Wert.Was habe ich falsch gemacht oder faslch bedacht?
Gruß
Holger