Worksheet wechseln per Zellenbezug
16.07.2007 08:58:00
Roman
nachdem mir hier Freitag schon sehr weitergeholfen wurde, eine erneute Frage.
Ich möchte einen Wert aus einer Zelle (B19 im Sheet X-Felder-Tafel) auslesen. In dieser Zelle steht ein Name eines anderen Worksheets. Per Klick auf einen Button möchte ich dann auf dieses Worksheet wechseln.
Dazu habe ich bislang folgenden Code geschrieben:
Private Sub Image1_Click()
Dim test As String
test = Worksheets("X-Felder-Tafel").Range("B19").Value
Worksheets(test).Activate
End Sub
In der Zelle B19 befindet sich der Wert "01 - Blatt". Es kommt die Fehlermeldung Laufzeitfehler 9. Index außerhalb des gültigen Bereichs.
Da ich Zelle per SVERWEIS dynamisch generiert wird, kann ich nicht hart codieren, also
Worksheets("01 Blatt").Activate
geht nicht, da B19 eben immer dynamisch aufgebaut wird.
Meine Vermutung: Ich darf die Variable test nicht in dieser Form an Worksheets().Activate übergeben.
Hat jemand einen Tipp?