Tabellenblätter aus geschlossener Datei kopieren
16.06.2015 16:35:29
Marcel
Ich möchte aus einer geschlossenen Datei per VBA gewisse Tabellenblätter in eine neue übernehmen.
Im Internet habe ich einen Code gefunden, bei welchem ich ein Tabellenblatt übertragen kann und dies funktioniert auch.
Wie muss ich nun vorgehen, dass ich insgesamt 4 verschiedene Tabellenblätter übertragen kann?
Fies ist der Code für das eine Tabellenblatt.
Sub DatenHolen()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xls),*.xls", , "Bitte _
die Datei xyz.xls öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'Kopieren der Tabellen Zeiten aus Datei xyz
Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
WBQuelle.Worksheets("Zeiten").Cells.Copy WSZiel.Cells(1)
WSZiel.Name = "Zeiten"
WBQuelle.Close False
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
End Sub
Die weiteren Tabellenblätter heissen z.B. Material oder MerkmaLE.
Wie muss ich es ergänzen, dass auch die weiteren Tabellenblätter übertragen werden.
Besten Dank für die Hilfe.