Makro-Autofilter-Selection
Maggie
das Makro für meinen Autofilter funktioniert nicht immer, hängt sich an dem Selection auf.. erzeugt dann einen Laufzeitfehler.
könnte mir bitte jemand helfen... das Makro so umschreiben das es ohne dieses Select funktioniert.
Sub Monat_anpassen()
Dim I As Integer
For I = 4 To Sheets.Count
Sheets(I).Select
' Monat_anpassen Makro
Range("A2:AJ27").Select
Range("AJ27").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$2:$AJ$51").AutoFilter Field:=36, Criteria1:="="
Range("A3:AJ27").Select
Range("AJ27").Activate
Selection.ClearContents
ActiveSheet.Range("$A$2:$AJ$51").AutoFilter Field:=36
Selection.AutoFilter
Range("A26").Select
Application.ScreenUpdating = False
Dim L As Long
For L = 3 To 27
Rows(L).Hidden = WorksheetFunction.Sum(Range("C" & L & ":By" & L)) = 0
Next
Application.ScreenUpdating = True
Next I
End Sub
vielen Dank im vorausMaggie