Gegeben ist eine Datei mit 3 Tabellenblättern: Tabelle1, Tabelle2, Tabelle3
Die Reiter der Tabellenblätter sind umbenannt: AAA, BBB, CCC
Das Blatt Tabelle1(AAA) wurde an die zweite Position geschoben.
Problem: der Klarname (AAA) und die Position (zweites Blatt von links) von Tabelle1 kann variieren und ist deshalb für mich nicht brauchbar.
Wie kann ich das Tabellenblatt Tabelle1 aus einer anderen Datei heraus direkt ansprechen,
ohne den Klarnamen zu kennen und ohne die Position zu kennen?
Sub Blatt_ansprechen()
Dim wbk As Workbook
Set wbk = Workbooks("AAA_BBB_CCC.xlsm")
wbk.Activate
wbk.Sheets(2).Activate ' funktioniert, ist aber für mich nicht brauchbar
wbk.Worksheets(2).Activate ' funktioniert, ist aber für mich nicht brauchbar
wbk.Sheets("AAA").Activate ' funktioniert, ist aber für mich nicht brauchbar
wbk.Worksheets("AAA").Activate ' funktioniert, ist aber für mich nicht brauchbar
Tabelle1.Activate ' funktioniert nur bei Aufruf aus dieser Datei, nicht aus einer anderen
wbk.Tabelle1.Activate ' funktioniert nicht
End Sub
SIehe auch angehängte Beispieldatei, wo das Makro auch hinterlegt ist: https://www.herber.de/bbs/user/145500.xlsm