AW: auf mehreren Blättern Filter anwenden
06.10.2010 10:35:06
urmila
Hallo Manuela,
ich geh mal davon aus dass dein Problem noch nicht gelöst ist...
Habe eben etwas gebastelt...weisen dies Makro einem CommandButton zu.
Option Explicit
Sub alle_autofilter()
Dim i, a, b
For i = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For a = 2 To Worksheets.Count
If Not ActiveSheet.AutoFilter.Filters(i).On = 0 Then
b = Mid(ActiveSheet.AutoFilter.Filters(i).Criteria1, 2, 80)
With Worksheets(a)
.Range("A1").AutoFilter Field:=i, Criteria1:=b
End With
Else
With Worksheets(a)
.Range("A1").AutoFilter Field:=i
End With
End If
Next
Next i
End Sub
Ich gehe davon aus der Autofilter in Zeile 1 gesetzt ist bzw A1.
RÜCKMELDUNG wäre nett.
Lass diese Frage dann offen, falls es doch nicht ist.
LG
Urmila