ich versuche jetzt schon ein paar Tage ein Makro zu basteln.
Ich möchte per VBA ein beliebiges Tabellenblatt in meine aktive Arbeitsmappe importieren. Kopiert werden soll immer "Tabelle1" und soll dann als viertes Tabellenblatt mit dem Namen "Druckschriften" eingefügt werden.
Ich habe bereits ein Makro aufgenommen und etwas abgeändert:
Option Explicit
Sub kopieren()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Bitte die Datei zum _
Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
Set WBQuelle = Workbooks.Open(ExportDatei)
Sheets("Tabelle1").Select (an dieser Stelle, kommt eine Fehlermeldung:
Laufzeitfehler 9, Index auserhalb des gültigen Bereichs)
Sheets("Tabelle1").Copy Before:=Workbooks("überarbeitung.xlsm").Sheets(4)
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Druckschriften"
End Sub
Was mach ich falsch?
Vielen Dank vorab
Sandra