Problem mit ComboBox
25.10.2007 16:26:00
Melanie
ich habe folgendes Problem. Ich habe in einer Datei eine ComboBox, die einen Autofilter steuert.
Private Sub ComboBox1_Click()
Dim varWert As Variant
varWert = Me.ComboBox1.Value
Range("G3") = varWert
Select Case varWert
Case "leere Zeilen ausgeblendet"
Selection.AutoFilter Field:=2, Criteria1:="0", Operator:=xlAnd
Case "alle Zeilen angezeigt"
Selection.AutoFilter Field:=2
End Select
End Sub
Die Auswahlmöglichkeiten der ComboBox sind im VB.Editor im Objekt "Diese Arbeitsmape" wie folgt hinterlegt.
Private Sub Workbook_Open()
With Tabelle22.ComboBox1
.AddItem "alle Zeilen angezeigt"
.AddItem "leere Zeilen ausgeblendet"
End With
With Tabelle23.ComboBox1
.AddItem "alle Zeilen angezeigt"
.AddItem "leere Zeilen ausgeblendet"
End With
With Tabelle24.ComboBox1
.AddItem "alle Zeilen angezeigt"
.AddItem "leere Zeilen ausgeblendet"
End With
End Sub
Jetzt bräuchte ich diese Auswahlmöglichkeiten aber auch direkt im VB-Objekt des Tabellenblattes, da das Tabellenblatt per Makro in eine andere Datei kopiert wird und hier die Auswahlmöglichkeiten natürlich auch zur Verfügung stehen müssen. Jemand ne Idee?
Im Voraus besten Dank!
Grüße, Melanie