gibt es eine Möglichkeit die Zeilenanzahl zu erhöhen so das mehr als 65536
Zeilen zur Verfügung stehen?
Folgendes Problem: Ich sammel aus mehreren Mappen Daten die ich mir in ein
einziges Sheet kopieren. Nun sind aber die Daten zusammen mehr als 65536 Zeilen.
Was kann ich da tun? Oder kann ich zwischen den kopieren in dem Zielsheet schon leere Zeilen löschen?
Hier mal mein Makro das die Daten sammelt:
Sub Kundendaten_sammeln()
On Error Resume Next
Dim i As Long
Dim lRow As Long
Const verz = "C:\Eigene Dateien\"
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
Sheets("Kundendaten").Activate
Range(Range("A5"), Range("A5").End(xlDown)).EntireRow.Select
Selection.Copy
Workbooks("Mappe1.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
quelle.Saved = True
quelle.Close
Next y
End Sub
Danke für Hilfe
Christian