|
Hallo ihr Lieben
Nachdem ich jetzt seit 5 Tagen in Google gesucht habe und immer wieder die gleichen (ähnlichen) antworten gelessen habe und diese an meine Pfade angepasst habe und alle nicht funktionieren, wende ich mich von Excel geschlagen an euch.
Googel gab mir 70.000 Treffer von denen ich mind. 50 verschiedene Codes versucht habe.
Ich habe eine leere Tabelle geöffnet.
Daten aus einem Programm eingefügt.
Ein Makro gestartet, mit dem ich innerhalb dieser Arbeitsmappe 3 Sheets einfüge, umbenenne und sie mit Daten aus dem ersten Sheet das ich im laufe des Makros in "Alle" umbenannt habe, einfüge.
Soweit klappt es auch.
Jetzt möchte ich aus einer anderen Tabelle (Suchmeldungen) einen Sheet "Suchmeldungen" mit genau diesem Namen in die Tabelle einfügen.
Um es nochmal klarzustellen, die Datei heist Suchmeldungen und das Sheet auch. (Um Verwirrungen zu vermeiden)
Der Code dazu ist:
' Worksheet Kopieren
Dim QWB As Workbook ' Quellworkbook
Dim Zielmappe As Workbook ' Zielworkbook
Dim QWS As Worksheet ' Quellworksheet
Dim ZWS As Worksheet ' Zielworksheet
Set Zielmappe = ThisWorkbook ' Ziel, Workbook Dieses Workbook
Workbooks.Open "D:\Users\Bernd\Desktop\Meldungen\Suchmeldungen.xlsx" ' Wenn die Datei erst geöffnet werden muss
Set QWB = Workbooks("Suchmeldungen.xlsx") ' Quelle, aus der die Tabelle kopiert werden soll
Set QWS = QWB.Worksheets("Suchmeldungen") ' Quelle Worksheet
Cells.Select
Selection.Copy
With ThisWorkbook.Worksheets("Busstörung")
' Zielmappe.Activate ' Dies war ein anderer Versuch das Workbook zu aktivieren
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Suchmeldungen"
Range("A1").Select
ActiveSheet.Paste
Das Problem ist, das ich einfach nicht die richtige Arbeitsmappe aktiviert bekomme.
VBA versucht ständig das Kopierte in eine neues Worksheet im falschen Workbook einzufügen, nämlich in die Datei "Suchmeldungen".
Wo liegt der Fehler, ich gebe auf.
Danke
|