Supportnet / Forum / Tabellenkalkulation
XP SP2; VBA6.0; Tabellenblatt aus Inhaltsverzeichnis aufrufen
Frage
Hallo VBA-Freaks,
ich bearbeite etliche Arbeitsmappen, die sehr viele Tabellenblätter haben. Das Aufrufen kann nervend sein, wenn die gesuchte Tabelle weit hinten steht, weil sie erst mal in den Bildschirm geschoben werden muss, um sie anclicken zu können.
Deshalb habe ich mir eine Tabelle0 angelegt, bei der in Spalte A die Tabellenblätter aufgelistet sind und in Spalte B Bemerkungen über ihren Inhalt.
Damit beim Aufruf der Arbeitsmappe sofort Tabelle0 mit dem Inhaltsverzeichnis erscheint, habe ich im Projektexplorer unter "diese Arbeitsmappe" die nachstehenden Codezeilen eingefügt:
Private Sub Workbook_Open()
On Error GoTo fehler
Sheets("Tabelle0").Activate
Range("A1").Select
Exit Sub
fehler: MsgBox "Tabelle0 muss noch eingefügt werden"
End Sub
Dann habe ich im Projektexplorer unter "Tabelle0" die folgenden Codezeilen eingefügt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
On Error GoTo fehler
Sheets(Target.Value).Activate
Exit Sub
fehler: MsgBox "eine Tabelle0 muss erst noch angelegt werden!"
End Sub
Wenn ich jetzt einen Doppelclick auf eine Zelle in Spalte A ausführe, erscheint sofort die gewünschte Tabelle.
Das geht auch alles sehr schön, aber erstmal nur in der Test-Arbeitsmappe. Ideal wäre es, wenn diese Verfahrensweise für alle Arbeitsmappen gültig wäre. Es muss wohl der Befehl "public" verwendet werden. Aber in welcher Weise er angewendet wird, daraus werde ich nicht schlau. Wer kann mir da jemand weiter helfen?
Mit freundlichen Grüßen
Queelun