Anzeige Sheets per ComboBox steuern
06.07.2010 10:58:06
NoNet
Hallo Dirk,
füge über die "Steuerelement-Toolbox" eine Combobox (z.B. "ComboBox1") in das Tabellenblatt ein.
Klicke diese (im entwurfsmodus) per Rechte Maustaste an und wähle "Code anzeigen" aus und kopiere nun folgenden VBA-Code in das VBA-Fenster :
Private Sub ComboBox1_GotFocus()
With ComboBox1
.Clear 'Bisherige Inhalte löschen
.AddItem "*"
.AddItem "BMW"
.AddItem "VW"
.AddItem "Audi"
End With
End Sub
Private Sub ComboBox1_Change()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name ComboBox1.Parent.Name Then
sh.Visible = UCase(sh.Name) Like UCase(ComboBox1.Value & "*")
End If
Next
End Sub
Deaktiviere nun im Tabellenblatt den Entwurfsmodus, dadurch wird die ComboBox "scharf" geschaltet.
Der Eintrag * dient zum Anzeigen ALLER Tabellenblätter !
Gruß, NoNet
PS: Deutschland spielt "Vier gewinnt" :
gegen 4:0 gegen 
4:1 gegen 4:0 gegen 
?:? ;-)