Reset autofilter with button?

Is there a way to reset a AutoFilter in calc with an big Button.
I think there would be a way with Basic but i didn´t find a good tutorial.
I tried to record a “makro” but with no success.

I don’t know why your macro recording failed. I was able to record a macro to set up the autofilter and another one to remove it. They were the same code, so it must be a toggle. I recorded a third macro to select the head of the autofilter, cell A1, and putting it all together this is what I came up with.

sub toggle
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:DataFilterAutoFilter", "", 0, Array())
end sub

I hooked the toggle macro to a button using the button control Mouse button pressed event. Clicking on the button toggles to autofilter on or off.