ich möchte ein Tabellenblatt von einer Datei in eine Andere kopieren.
Dazu habe ich in einem schlauen Buch folgenden Code gefunden:
Sub Tabelle_einfuegen(strName As String, _
strFilename As String)
Dim wkbWorkbook As Workbook
Dim wksWorksheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set wksWorksheet = Sheets(strName)
Set wkbWorkbook = Workbooks.Open(strFilename)
wksWorksheet.Copy _
After:=wkbWorkbook.Sheets(wkbWorkbook.Worksheets.Count)
wkbWorkbook.Save
wkbWorkbook.Close
Application.ScreenUpdating = True
End Sub
Allerdings kann ich den Code nicht Ausführen. Ich habe da wohl eine Lücke, was
"
Sub Tabelle_einfuegen(strName As String, strFilename As String)"
angeht.
Kann mir jemand erklären wie ich das kopieren am besten bewerkstellige?
Micha