Office: (Office 2013) CommandButton ActiveX - auf anderes Tabllenblatt springen

Hallo zusammen,

Ich habe auf dem Sheet1 insgesamt drei ActiveX CommandButtons eingefügt. Je nachdem, welcher Button angeklickt wird, soll ein anderes Tabellenbatt des gleichen Workbooks aufgerufen werden.
Mein Code sieht wie folgt für ein Commandbutton aus und funktioniert auch:

Private Sub Commandbutton1_Click()
Worksheets("Sheet2").activate
End Sub

Diesen Code habe ich über einen Rechtsklick auf den Commandbutton1 --> "View Code" eingefügt.
Für den zweiten und dritten Commandbutton bin ich genauso vorgegangen (Rechtsklick auf die Commandbutton2 und Commandbutton3 --> View Code). nur leider bekomme immer einen "Sbscript out of Range" Fehler!

Private Sub Commandbutton2_Click()
Worksheets("Sheet3").activate
End Sub

Private Sub Commandbutton3_Click()
Worksheets("Sheet4").activate
End Sub


Kann mir hier jemand weiterhelfen?
Danke
Nelspruit

 

Hallo Nelspruit,

die Blätter "Sheet3" und "Sheet4" sind aber vorhanden, oder?
Poste doch mal die Datei.

Gruß,
Lutz

 

HI Lutz,

danke für deine Antwort! Ja, die Tabellenblätter sind vorhanden und ich habe mich auch nicht vertippt!

Viele Grüße
Nelspruit

 

Datei?

 

Hi Lutz,

entschuldige, deine Frage nach der Datei habe ich überlesen. Allerdings habe ich auch meinen Fehler gefunden.
Sheet3 und Sheet4 werden in meinem VBA Projekt als Chart3 und Chart4 angezeigt (s. auch Anhang). Mit den untenstehenden Codes klappt es dann auch

Sorry, nochmal... und vielen Dank
Nelspruit


Private Sub CommandButton2_Click()
Charts("Chart3").activate
End Sub

Private Sub CommandButton3_Click()
Charts("Chart4").activate
End Sub

 

Ahh

 

Hi,

mal nur als Hinweis am Rade: mit Worksheets(...) sprichtst du - wie der Name schon aussagt - zielgrichtet nur Arbeitsblätter (Tabellenblätter) an. Da es jedoch Diagramm(blätter) sind, kannst du entweder (wie du bereits herausgefunden hast) Charts() oder auch einfach Sheets() verwenden - Scheets ist also der Überbegriff, mit dem beide Blattypen angesprochen werden können. Für eine saubere Programmierung und zum Auschliessen von Fehlern sollte man aber lieber die spezifische Bezeichnung Worksheets() bzw. Charts() und nicht einfach nur Sheets() verwenden.

Bis später,
Karin

 

Hi Karin,

dankeschön :-)

Gruß