Mit nachfolgendem Code lege ich mir in der aktiven Tabelle (benannt: "Dateien")in der Spalte A ein Verzeichnis der Dateien an.
Nun möchte ich den Code wie folgt modifizieren:
1. Es sollen nur xls-Dateien aufgezeichnet werden
2. Sofern die Datei der aktiven Tabelle im Verzeichnis enthalten ist, soll diese nicht aufgeführt werden
3. Dann suche ich eine Routine, wie ich eine Datei nach der anderen bearbeiten kann (schon nur das Gerüst wäre hilfreich; Endziel: ich will jede Datei öffnen und dann immer im jeweils gleich benannten Sheete (z.B. "Tabelle1") ermitteln, welches die letzte Zeile mit einem Eintrag ist und dann Spalte 1:letzte_Zeile_mit_Eintrag kopieren und in die ursprünglich aktive Datei in die Tabelle "Daten" einfügen, und zwar immer ab der Zeile, wo noch nichts darin ist [die zu kopierenden Bereiche sind von den Spalteninhalten identisch und unterscheiden sich nur in der Anzahl Zeilen; Ziel ist alle Daten der einzelnen Dateien in einem File zu haben])
Kann mir jemand zu den einzelnen oder zu einem einzelnen Punkt Lösungshinweise geben?
Hoffe, ich habe die Frage nicht allzu sehr überladen - doch schon einzelne Hinweise wären hilfreich.
Danke, Peter
Sub Dateien()
Dim strDatei As String
Dim lngZ As Long
ActiveSheet.Columns(1) = ""
Application.ScreenUpdating = False
strDatei = Dir("H:\Eportdaten\")
Do Until strDatei = ""
lngZ = lngZ + 1
ActiveSheet.Cells(lngZ, 1) = strDatei
strDatei = Dir
Loop
Application.ScreenUpdating = True
End Sub