Blattauswahl mit Symbolleiste
07.11.2003 17:41:02
Peter
In einer eigenen Symbolleiste habe ich eine Combobox.
Die Namen wurden mit einem Index versehen. (siehe Beispiel)
~begin~
......With Symbol
.AddItem Text:="Start", index:=1
~end~
Jetzt möchte ich erreichen, dass nur das angewählte Blatt angezeigt wird.
Aber so richtig funktioniert die Sache nicht.
~begin~
Sub BlattAuswahl()
Dim index As Long
Dim Sh As Worksheet
index = Application.CommandBars("TA/Urlaub").Controls.Item(2).ListIndex
For Each Sh In Worksheets
If Sh(????) = index Then
With Sh
.Visible = True
.Protect
.Select
Exit Sub
End With
Else: With Sh
.Visible = False
.Unprotect
End If
Next Sh
End Sub
~end~
Danke im voraus
Peter