Autofilter: Daten werden ausgeblendet
12.01.2006 14:38:28
Uschi
ich habe folgenden Autofilter gebastelt, um beim Setzen des Filterwerts variabel zu sein:
Sub Prozent()
Dim iProzent As Single
Dim ws As Worksheet
Set ws = Worksheets(1)
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
iProzent = InputBox("Bitte den gewünschten Prozentwert eingeben")
With ws.Range("A1:F1")
.AutoFilter Field:=6, _
Criteria1:="<=" & iProzent
End With
End Sub
Mit dem Code wird auch nach dem gewünschten Prozentsatz gefilter, aber die Zeilen werden nicht angezeigt. Gehe ich dann manuell über den Filterpfeil auf "benutzerdefiniert", stehen da genau meine Filterkriterien und wenn ich dann auf ok gehe sehe ich auch die gefilterten Zeilen.
Wo hakts in meinem Code? Liegt es vielleicht am ws.Range. Aber da habe ich verschiedene Werte ausprobiert und es ändert sich nichts.
Danke schon mal und Gruß
Uschi