Filtermakro läuft nicht richtig!
13.09.2007 16:05:00
Rolf
Ausganslage:
Liste in A1 mit 10 Zahlen die sich mehrfach wiederholen: 1,3,2,2,1,2,1,3,1,2
Eine UserForm1 mit einem ComboBox1 -Element drin.
Das folgende Makro reagiert auf Veränderung der ComboBox1
Dim w As Worksheet
Dim wert As Variant
Sub ComboBox1_Change()
wert = ComboBox1.Value
Range("m1").Select
ActiveCell.FormulaR1C1 = wert
Range("A1").Select
Set w = Worksheets("Tabelle1")
Range("a1").Select
Selection.AutoFilter field:=1, Criteria1:=wert
Unload UserForm1
End Sub
Lässt man das Makro laufen klappt alles, bis er bei "Selection.AutoFilter field=1, Criteria1=wert" unterbricht.
(Mit Einzelschritten sieht man, dass er nachdem er das erste mal dieses Element ausführt, _
wieder zu
"Sub Combo Box1" zurückspringt und das Makro erneut abarbeitet, was nicht sein sollte)
Zur Ansicht unter dem Upload: http://www. _
herber.de/bbs/user/46008.xls
(Makro mit Einzelschritten durchführen, damit man das Problem sieht!)
Für korrekturideen oder Korrekturen bin ich sehr dankbar!
Gruss
Rolf