Hallo zusammen,
Ich möchte eine andere Excel Datei öffnen in der die Tabellenblätter 1(55abc), 2(55d), 3(55i), 4(55i) usw. also weiter mit (55i) Blätter enthalten sind. Die Tabellenblätter die ich benötige sind quasi die mit (55i). Die erste Zahl kann immer eine andere sein. Jedenfalls bekomme ich es nur hin das ich von einem Tabellenblatt gewisse Daten in meine Neue Tabelle kopiert bekomme. Aber ich möchte von jedem Tabellenblatt das (55i) enthält diese Daten. Und diese kopierten Daten sollen dann untereinander, in der neuen Tabelle stehen. Mein Dokument aus dem ich die Daten ziehe kann mal viel, mal wenig Tabellenblätter mit (55i) haben.
Kann mir bitte jemand helfen?
Hier habe ich mal ein ausschnitt was ich bisher habe.
Sub DatenHolen()
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsm),*.xlsm")
Workbooks.Open Filename:=ExportDatei
Pfad1 = CurDir
Worksheets("3(55i)").Range("AA10:AI72").Copy
Workbooks("Serienpunkte auslesen.xlsm").Worksheets("Tabelle1").Range("A2").PasteSpecial xlPasteValues
End Sub
|