Office: Mehrere Tabellen aus Datei kopieren

Hallo ihr Lieben,

ich möchte folgendes Skript umwandeln, sodass mehrere Tabellenblätter aus einer Datei in die offene Datei kopiert werden.
_______________________________________________________________
Option Explicit




Sub cmdimport_Click()
Dim QWB As Workbook, ZWB As Workbook
Dim ordner As Variant
ordner = Application.GetOpenFilename("Excel Files (*.xls*),*.xls*, ,*.*") ' _
Wenn die Datei erst geöffnet werden muss

' vFileToOpen = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)

Set QWB = Workbooks.Open(ordner) ' Quelle, aus der die Tabelle kopiert werden soll
Set ZWB = ThisWorkbook ' Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Tabelle2 ' Quelle
Set ZWS = ZWB.Worksheets("Tabelle1") ' Ziel

QWS.Copy after:=ZWS ' oder before
QWB.Close ' Wenn die Datei wieder geschlossen werden soll
End Sub


_______________________________________________________________

Optimal wäre es, würde man eine Schleife einbauen, sodass alle Tabellenblätter der Datei außer die mit den Namen "Info","Input","Cockpit" und "Plants". Wenn das jedoch nicht geht (ich kenne mich wenig mit VBA aus), dann würde ich alle Tabellenblätter benennen, die kopiert werden sollen.

Kann mir dabei jemand weiterhelfen?

Vielen Dank und beste Grüße
Änna

:)

 

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.

Edit: scheinbar nicht...
http://www.herber.de/forum/messages/1708770.html
http://www.vba-forum.de/forum/View.a...Datei_kopieren

Gruß,
steve1da