Gesamtdatei-durch-Import
11.06.2021 17:27:59
Hendrik
ich hatte gestern schon mal mein Problem geschildert, habe aber diesmal vielleicht eine bessere Startlösung in petto.
Ziel: Es soll aus einer Reihe von Excel-Dateien in einem Ordner, die alle gleich aufgebaut sind, immer die Tabelle15 in eine Gesamtdatei importiert werden.
Man öffnet also die Gesamtdatei, drückt auf den Button und er geht die Dateien im Ordner durch und holt sich immer die Tabelle15.
Folgendes habe ich dazu gefunden:
Sub Bereich_importieren()
Dim directory As String
Dim fileName As String
Dim sheet As Worksheet
Dim total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "C:\meinpfad\Test\"
fileName = Dir(directory & "*.xl?")
Do While fileName ""
Workbooks.Open (directory & fileName)
ActiveWorkbook.Activate
Application.Run fileName & "!alle_einblenden
For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("Gesamtdatei").Worksheets.Count
Workbooks(fileName).Worksheets("Name der Tabelle15").Copy _
after:=Workbooks("Gesamtdatei").Worksheets(total)
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Problem: Die Quelldatei hat 32 Blätter und er importiert mir nun 32 mal die Tabelle15 :-DFrage:
1) Kann mir jemand helfen, dass nur die Tabelle15 1x in meine Gesamtdatei importiert wird?
2) Ist es möglich, dass nur die Daten von Tabelle15 importiert werden? Tabelle15 enthält leider Makros, die dann in der Gesamtdatei rumspinnen.