Nicht einfach
22.02.2011 12:48:14
Holger,
Hallo,
ich bin leider kein Profi und denke, das ist nicht einfach umzusetzen.
AutoFilter setze ich auch automatisch, das Problem ist zu erfahren, was eventuell
vorher schon gefiltert ist bzw den Bereich zu erfassen. Daher setze ich alles erstmal
auf 0 und filtere anschliessend. Ich kann Dir gerne meine Codefragmente zur Verfügung stellen und du probierst mal etwas rum. Schreib erstmal so ein Makro und probiere es bei einem Sheet aus und stelle den Code erst später ins Change ereignis.
Sub Fragmente
If ActiveSheet.AutoFilterMode Then Selection.AutoFilter 'erstmal alles aufheben
intLastRow = wks.Cells(Rows.Count, 2).End(xlUp).Row 'Bereich ermitteln, der gefiltert werden _
soll (Spalte 2 hier)
Range("B5:T" & intLastRow).Select
Selection.AutoFilter ' AutoFilter einschalten
ActiveSheet.Range(rng).AutoFilter _ 'rng = Range von oben
Field:=AFNum, _ 'Hier steht die Nummer des Autofilters, gezählt wird von links _
nach rechts
Criteria1:=Crit, _ 'Hier steht das zu filternde kriterium, das muss du in einer _
Variable halten
VisibleDropdown:=Visible 'Mit false könntest du einzelne Autofilter deaktivieren
End Sub