AW: Werte im Diagramm mittels Auswahlmenü anzeigen
26.10.2011 15:50:59
Beverly
Hi Kai,
man könnte die Überschrift in B5 mit in die Auswahl einbeziehen und wenn diese ausgewählt wird, dann alle einblenden. Dazu müsstest du den Code wie folgt ändern:
Private Sub Workbook_Open()
Dim objDic As Object
Dim lngZaehler As Long
Set objDic = CreateObject("Scripting.Dictionary")
With Worksheets("Tabelle1 (2)")
.Range("$A$5:$P$8").AutoFilter
varBereich = .Range(.Cells(5, 2), .Cells(IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(. _
Rows.Count, 1).End(xlUp).Row, .Rows.Count), 2))
End With
For lngZaehler = LBound(varBereich) To UBound(varBereich)
objDic(varBereich(lngZaehler, 1)) = 0
Next lngZaehler
Erase varBereich
varBereich = objDic.keys
Worksheets("Tabelle1").Shapes("DropDown 1").ControlFormat.List = ""
Worksheets("Tabelle1").Shapes("DropDown 1").ControlFormat.List = varBereich
End Sub
Sub Filtern()
Dim strKriterium As String
With ActiveSheet.Shapes(Application.Caller)
strKriterium = varBereich(ActiveSheet.Shapes(Application.Caller).ControlFormat.Value - 1)
If .ControlFormat.Value = 1 Then
Worksheets("Tabelle1 (2)").Range("$A$5:$P$8").AutoFilter Field:=2
Else
Worksheets("Tabelle1 (2)").Range("$A$5:$P$8").AutoFilter Field:=2, Criteria1:= _
strKriterium
End If
End With
End Sub