Office: Mit CommandButton zu ausgewähltem Tabellenblatt wechseln

Ich habe eine Tabelle mit fortlaufend nummerierten Blätter.
Über eine Drehfeld soll in Zelle A1 die Nummer eines Tabellenblattes eingestellt werden auf dass dann mittles Commandbutton gesprungen wird.
Wie müsste der Code aussehen damit CommandButton1 den Wert aus Zelle A1 übernimmt und dann zu dem Blatt wechselt?
Danke im Voraus

 

Worksheets(Range("A1")).Select

 

Danke für die Antwort
leider kommt es bei mir nur zu einer Fehlermeldung
ich arbeite mit xp Sp3 exel 2002. vielleicht liegt es daran.

 

Ich tippe mal auf einen Index-Fehler... Der würde dann auftreten, wenn der Wert in A1 nicht 100%ig einem Blattnamen entspricht.

Wenn in A1 z.B. eine "5" steht, dann muß auch ein Blatt mit dem Namen "5" existieren. Ein Blatt namens "Tab5" würde nicht helfen, zumindest nicht mit obigem, einzeiligen Code.

Ich drösel das mal ein bißchen auf:

Damit aktiviert man ein Blatt, holt es also "in den Vordergrund":

Code:

worksheets(s).activate

Hiermit liest man einen Wert aus einer Zelle aus und speichert ihn in einer Variablen zwischen:

Code:

s = activesheet.cells(1,1).value
'oder alternativ
s = activesheet.range("a1").value

Und wenn man noch was "dazupacken" muß:

Code:

s = "Tab" & s

Das ganze zusammen also:

Code:

s = activesheet.range("a1").value ' z.B. "5"
s = "Tab" & s ' aus "5" wird "Tab5"
worksheets(s).activate ' Blatt "Tab5" wird aktiviert

Tückisch bei dieser ganzen Methode sind Leerzeichen! Achte also bitte auch darauf, daß insbesondere die Blattnamen nicht noch ein Leerzeichen am Ende haben. Das passiert nämlich zu gerne. Was man nicht sieht, ist ja auch nicht da... ;-)

Gruß, Michael

 

Danke. Klappt 1a
Allerdings mit einem Haken.
Ohne "s = "Tab" & s " nimmt Exel 2002 die ausgelesene Zahl als nr des Tabellenblattes. D.h. Exel nummeriert die blätter durch. Der Wert 5 entspricht nicht dem Blatt mit dem Namen 5 sondern dem fünften Blatt von links.
Es funktioniert nur wenn man mit "s = "" & s " arbeitet. Dann nimmt Exel den ausgelesenen Wert als Text und nicht mehr als Zahl.

 

Yup, das "typecasting" schlägt dann zu. Ist der ausgelesene Wert eine Zahl, "rät" Excel mal, nicht ganz unverständlich, auf eine numerische Variable. Dein "workaround" zwingt Excel, die Zuweisung als String durchzuführen. Etwas "stilvoller" vielleicht wäre die Benutzung einer Funktion, die den Zellinhalt direkt als String zurückliefert:

Code:

s = trim$(activesheet.cells(1,1).value)

Neben der erzwungenen Umwandlung auf einen String entfernt diese Funktion auch gleich noch Leerzeichen am Anfang und Ende des Zellwerts.

Aber Dein "Trick" funktioniert durchaus auch, ja...

Gruß, Michael

 

Danke für die Info.
Code sieht nun folgendermaßen aus und funktioniert einwandfrei.

Private Sub CommandButton1_Click()
s = Trim$(ActiveSheet.Range("e2").Value)
Worksheets(s).Activate
End Sub

Tabellenblätter dürfen keine Leerzeichen in den Namen enthalten, sonnst funktioniert es nicht