Warum muss ich das Tabellenblatt aktivieren
15.02.2025 21:21:06
Wennerfaellt
Mit dem unten zu sehenden Code kopiere ich eine Tabelle (Abfahrten) aus einer Anderen Datei (Abfahrten) in die aktive Datei (Aushang). Dann füge ich ein zusätzliches leeres Tabellenblatt ein (Liste). Somit sehe ich also das Tabellenblatt (Liste) als Aktives. Aus (Abfahrten) will ich jetzt einen Teil in (Liste) kopieren, bekomme aber ein Fehlermeldung. Wenn ich dann zu debuggen das TB(Abfahrten) aktiviere, funktioniert die Codezeile. Hier liegt aber doch kein "Select" vor. Lösen kann ich das Problem mit 1-2 weiteren Codezeilen, aber ich verstehe nicht, warum das so ist?
Sub Import()
Windows("Abfahrten.xlsm").Activate
Sheets("Abfahrten").Move Before:=Workbooks("Aushänge.xlsm").Sheets(1)
Windows("Aushänge.xlsm").Activate
Sheets.Add After:=Sheets("Abfahrten")
ActiveSheet.Name = "Liste"
Sheets("Abfahrten").Range("B3", Range("B3").End(xlDown)).Copy Sheets("Liste").Range("A1")
Sheets("Liste").Columns("A:A").EntireColumn.AutoFit
End Sub
Anzeige