mit Auswahl aus Zelle Tabellenblatt wechseln

[Mario]

Hallo zusammen,

ich lese im Excel die namen der Tabellenblätter aus. Diese werden in das Tabellenblatt "Blätter" geschrieben.
Über Daten prüfen kann ich die Namen im Tabellenblatt "Monitor" "I2" auswählen um damit das entsprechende Tabellenblatt (diese sollen standardmäßig ausgeblendet sein) einzublenden und zu aktivieren.
Leider bekommen ich die Fehlermeldung "Index außerhalb des gültigen Bereichs"

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   ActiveWorkbook.Sheets(ThisWorkbook.Sheets("Monitor").Range("I2").Value).Activate

End Sub

Kann hier eventuell jemand helfen.

Danke und Beste Grüße,
Mario

[Crazy Tom]

moin

das habe ich so getestet

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strBlatt As String
   strBlatt = Range("I2").Value
   Sheets(strBlatt).Activate
End Sub

MfG Tom

[Klaus-Dieter]

Hallo,

das Blatt heißt 0021, in der Auswahl 21 das kann nicht funktionieren.

[Crazy Tom]

das Blatt hab ich gar nicht probiert  :19:

[Mario]

Hallo Tom,

vielen Dank funktioniert super. Die Blattnamen werden nicht mit einer null beginnen.
Damit läuft es supe.

Ich wünsche vielen Dank und noch ein schönes Wochenende.

VG Mario