Hallo Zusammen,

ich möchte die Tabellenblätter in einem benutzerspezifischen Menü einbinden, um so den Wechsel zum entsprechenden Tabellenblatt zu ermöglichen. Dies soll jedoch dynamisch geschehen, d.h. im Menü sollen nur die vorhandenen und eingeblendeten Tabellenblätter angezeigt werden.
Bisher habe ich folgendes Coding vorgehen:

Set kaskade = menüneu.Controls.Add(Type:=msoControlPopup)
With kaskade
.Caption = "Ressourcen"
End With

For i = 3 To 15
If Sheets("ressourcen " & 2000 + i).Visible = True Then
With kaskade.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "Ressourcenplan " & 2000 + i
.Style = msoButtonCaption
.OnAction = "ressourcenplan_anzeigen"
End With
End If
Next i

Jetzt ist es so, daß Tabellenblätter "Ressourcenplan 2003" bis "Ressourcenplan 2009" vorhanden sind. Prompt läuft das Makro bei i = 10 gegen die Wand. Wer hat ' ne Idee, wie ich zunächst abprüfen kann, ob das Tabellenblatt vorhanden ist?


Danke und Grüße
Chris