Tabellenblatt aus Listbox aktivieren
13.02.2004 17:23:36
Raffi
Habe wiedermal ein kleines Problem. In einer Listbox eines UserForms werden alle Tabellenblatt-Namen aufgeführt. Nun möchte ich, dass das ausgewählte Blatt (bei mehrfachauswahl das erste) aktiviert wird. Folgender Code funzt nicht. Beim Click auf den CommandButton1 geschieht genau nichts.
Private Sub CommandButton1_Click()
Dim i As Integer
'Nur das erste von evtl. vielen markierten Blättern wird aktiviert
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Sheets(ListBox1.List(i)).Activate
Exit For
Next
End Sub
Kann mir da jemand helfen.
Vielen Dank und Gruss aus der Schweiz
Raffi