Ich möchte ein Tabellenblatt aus einer anderen Excel Datei importieren, allerdings so, dass kein neues Tabellenblatt dafür erzeugt wird, sondern der import in das vorhandene Sheet 1 passiert.
Der import klappt soweit jedoch wird immerwieder ein neues Tabellenblatt erzeugt "Sheet 1(2)" etc.
Hier der Code:
Private Sub cmdimport_Click()
Dim QWB As Workbook, ZWB As Workbook
Dim ordner As Variant
ordner = Application.GetOpenFilename("Manche Dateien (*.txt),*.txt,Alle Dateien,*.*") ' _
Wenn die Datei erst geöffnet werden muss
Set QWB = Workbooks.Open(ordner) ' Quelle, aus der die Tabelle41 kopiert werden soll
Set ZWB = ThisWorkbook ' Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Sheet 1") ' Quelle
Set ZWS = ZWB.ActiveSheet ' Ziel
QWS.Copy after:=ZWS ' oder before
QWB.Close ' Wenn die Datei wieder geschlossen werden soll
End Sub