PDA

Vollständige Version anzeigen : Makro Autofilter setzen in aktiver Zelle


FilterFutzi
02.08.2012, 15:05
Hallo!
ich habe mir ein makro aufgezeichnet der mit code so aussieht:

Sub Filter_setzen()
Selection.AutoFilter
End Sub

immer wenn ich den button drücke, setzt er den autofilter. soweit so richtig. doch ich will, das der autofilter immer in die zeile gesetzt wird, in der ich aktiv reingeklickt habe. bisher wird der filter immer in zeile 2 gesetzt.

befinde ich mich mit dem cursor in irgendwo in zeile 6, dann soll auch dort in der zeile der filter gesetzt werden und nich in zeile 2!

wie muss ich den code anpassen?

DANKE

jeder mann
02.08.2012, 15:25
Hallo, FilterFutzi,

nichts dem Makro-Rekorder glauben. Bitte den Bereich anpassen (hier für die Spalten A bis G)

Sub Filter_setzen()
With ActiveCell
Range(Cells(.Row, "A"), Cells(.Row, "G")).AutoFilter
End With
End Sub