Makro mit variablen dateinamen
05.12.2012 18:51:45
Manu
ich ein Makro, dass ich noch optimieren möchte, es aber nicht hinbekomme.
Die Namen der Workbooks und Worksheets sollen variabel werden. Diese würde ich gerne in einem Tabellenblatt in Zellen eintragen (z.B. in A1, A2 usw).
Ich hoffe, dass Ihr mit weiterhelfen könnt.
Sub Datei_kopieren()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "E:\Manu\2. Phase\Fertige Dateien\Dienstplan Nord.xls"
Set QWB = Workbooks("Dienstplan Nord.xls")
Set ZWB = Workbooks("Beispiel Datei öffnen") 'Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Oktober12")
Set ZWS = ZWB.Worksheets("Tabelle3")
QWS.Cells.Copy ZWS.Cells(1, 1) ' Inhalt in Ziel-Tabelle einfügen
QWB.Close
Application.EnableEvents = True
End Sub