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