@Klaus M.vdT.bzgl.Autofilter
14.02.2013 10:54:42
Katrin
vielen Dank nochmal für deine Hilfe!
Kann man bei einem Autofilter nicht direkt auf die deklarierten Sheets verweisen bzw. kann man den nicht für verschiedene Sheets verwenden?
Also man schreibt:
Call DoResetAutofilter(Sheets(mysheet2011), 1, 30, 1) 'eigentlicher Name = "JA 2010 im Jahr 2011" - funktioniert leider nicht...
Call DoResetAutofilter(Sheets(mysheet2012), 1, 30, 1) '
Sub DoResetAutofilter(wksMySheet As Worksheet, iColFirst As Integer, iColLast As Integer, _
lRowFirst As Long) '* in case a user used another autofiler, this makro resets the autofilter _
to where needed.
Dim lRowLast As Long
With wksMySheet
lRowLast = .Cells(.Rows.Count, iColFirst).End(xlUp).Row
If .AutoFilterMode Then .Cells.AutoFilter 'Turns OFF Autofilter, if any
.Range(.Cells(lRowFirst, iColFirst), .Cells(lRowLast, iColLast)).AutoFilter 'Turns ON _
Autofilter on given range
End With
End Sub
Der Hintergrund ist der, dass ich in einer For-Next-Schleife den Autofilter immer löschen muss, da er immer nach jeder Schleife nach einem neuem Konto filtert