Excel-Tabellenblatt automatisch aktivieren

Über ein Listenfeld wird eine Datenbank mit Namen abgefragt. Die Nummer des ausgewählten Eintrags wird in eine Zelle ausgegeben. Anhand dieser Nummer soll ein Tabellenblatt mit gleichlautender Nummer ausgewählt werden. Zum Beispiel wird in Zelle A2 die Nummer fünf ausgegeben. Es soll dann das Tabellenblatt fünf ausgewählt werden. Wie lautet der VBA-Befehl für Excel 5.0 und Excel 97?

Angenommen, die Tabellenblätter heißen »Tabelle1«, »Tabelle2« und so weiter und die Routine startet bei einem Doppelklick auf einen Eintrag, dann lautet das Listing so:



Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
X = Range(äa2ô).Value
Y = äTabelleô & X Sheets(Y).Select
End Sub



Das muss man nun nur noch an die eigenen Bedürfnisse anpassen:



Zeile1: »Listbox1« – Bezeichnung Deiner Listbox


Zeile2: »Range(äa2ô)« – »a2«=Ausgabezelle

Zeile3: »ôTabelleô« – Tabellenblattname



www.chip.de/forum/office97