ich will ein Makro programmieren, dass eine Datei öffnet, den Inhalt einer Tabelle in die berreits geöffnete Mappe kopiert und die neue Mappe wieder schliesst. irgendwie gelingt es mit nicht. Anbei mein Programm-Code. Hat jemand eine Lösung?
Programm-Code :
Sub auswerten()
mappe = ActiveWorkbook.Name
periode = Format(Worksheets("Abt.").Cells(1, 13).Value, "0")
For f = 4 To 7
On Error Resume Next
flaeche = Format(f, "0")
dateiname = "Zielerreichung_BAM_EG_Fläche_" & flaeche & "_Periode_" & periode & " (2003)"
blatt = "Fläche " & Format(f, "0")
Workbooks.Open dateiname
Workbooks(dateiname).Worksheets("abt.").Range("A1:AM42").Copy
Workbooks(mappe).Activate
Worksheets(blatt).Range("A1:AM42").Paste
Workbooks(dateiname).Close savechanges:=False
Next f
Workbooks(mappe).Activate
Sheets("Abt.").Select
End Sub