ich dreh mich mal wieder im Kreis. Ich möchte folgendes bewerkstelligen: In einem Ordner befinden sich mehrere Exceldateien. Ich möchte nun aus jeder Datei den Inhalt aus Zelle A2, B2, C2 und den Tabellenblattname in eine andere Datei kopieren. Allerdings besteht jede Datei aus mehreren Tabellenblätter, deren Zelleninhalt von A2, B2, C2 und Tabellenblattname ebenfalls kopiert werden sollen. Die Anzahl der Tabellenblätter in den Dateien ist aber unterschiedlich. Also, es können mal 2 oder 4 usw. sein. Ich habe mir ein Makro hingebastelt, welches mir die Dateien aus dem Ordner auflistet und hinter dem Namen entsprechend den Tabellenblattnamen des 1.Tabellenblatts und dahinter die Werte aus den Zellen. Nur weiß ich jetzt nicht, wie ich die anderen Tabellenblätter einer Datei automatisch auslese und die Werte jeweils eine Zeile tiefer in der anderen Datei einfüge. Nachfolgend mal das Makro, wie ich es im Moment aussieht.
Sub Daten_kopieren()
Dim sFile As String, sPath As String
Application.ScreenUpdating = False
Range("A2:D50").ClearContents
sPath = "D:\Scheckelhoff\Daten Günther\HDF"
If Right(sPath, 1) <> "/" Then sPath = sPath & "\"
sFile = Dir(sPath & "*.xls")
Do While sFile <> ""
zeilennr = Range("A65536").End(xlUp).Row + 1
Cells(zeilennr, 1) = sFile
sFile = Dir()
Loop
Pfad = "D:\Scheckelhoff\Daten Günther\HDF\"
Anzahl = Range("A1") + 1
For i = 2 To Anzahl
Datei = Cells(i, 1).Value
Workbooks.Open Pfad & Datei
Workbooks("Inhalt.xls").Sheets("Tabelle1").Cells(i, 2) = ActiveSheet.Name
Cells(2, 1).Copy Workbooks("Inhalt.xls").Sheets("Tabelle1").Cells(i, 3)
Cells(2, 2).Copy Workbooks("Inhalt.xls").Sheets("Tabelle1").Cells(i, 4)
Cells(2, 3).Copy Workbooks("Inhalt.xls").Sheets("Tabelle1").Cells(i, 5)
ActiveWindow.Close
Next i
Application.ScreenUpdating = True
End Sub
Ich hoffe, jemand ersteht was ich vorhabe. Wenn es noch Unklarheiten geben sollte, bitte melden, damit ich diese beantworten kann.
Danke Euch schon mal im Voraus,
Oliver