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
4:1 gegen 4:0 gegen 
?:? ;-)Private Sub ToggleButton1_Click()
Dim wshTabelle As Worksheet
Application.ScreenUpdating = False
For Each wshTabelle In Worksheets
If wshTabelle.Name "Tabelle1" Then
If ToggleButton1 Then
If InStr(wshTabelle.Name, "BMW") > 0 Then
wshTabelle.Visible = True
Else
wshTabelle.Visible = False
End If
Else
If InStr(wshTabelle.Name, "VW") > 0 Then
wshTabelle.Visible = True
Else
wshTabelle.Visible = False
End If
End If
End If
Next wshTabelle
Application.ScreenUpdating = True
End Sub