Filter entfernen und neu von A:P
A:P
mit dem nachfolgenden Code wird in SpalteI ein Filter gesetzt und alle Datensätze mit einer Zahl von mehr als 1 angezeigt. Wie kann ich nun erreichen, dass der Filter, der auch in Spalte J oder K gesetzt sein kann in diesen drei Spalten wieder entfernt wird und die generelle Filterfunktion (in Zeile 1) von Spalte A:P eingeschaltet wird? Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
mit je einem Einzelcode wird der Autofilter in Spalte I oder J oder K eingeschaltet
Sub Filter_Zahlen_Spalte_I()
Sheets("Daten").Select
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
If .AutoFilterMode = True Then .AutoFilterMode = False
.Range(.Cells(1, 9), .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 9)) _
.Autofilter Field:=1, Criteria1:=">=1", Operator:=xlAnd
End With
End Sub