Einen schönen guten Morgen,

ich habe ein Code, das problem ist, wenn ein User den Filter drin hat gibt es ein Fehler.

Private Sub CommandButton1_Click()
'Zeilen löschen
Rows("3:5").Select
Range(Selection, Selection.End(xlDown)).ClearContents
Range("B6").Select
' Kopieren und einfügen
Sheets("F").Columns("C:C").Copy
Sheets("Top").Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").Select

' Duplikate entfernen
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$50000").RemoveDuplicates Columns:=1, Header:= _
xlYes
Range("A1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

' Formel Sverweis für die Bzeichnung
Range("B3") = "=IFERROR(VLOOKUP(RC[-1],Bez_F,2,FALSE),"""")"
Range("B3:B3").AutoFill Destination:=Range("B3:B" & Cells(Rows.Count, "A").End(xlUp).Row), Type:=xlFillDefault



Range("C3") = "=SUMIFS(Verlust_Monat_,'FMS Top'!R1C,Art_F,'F Top'!RC1)"
Range("D3") = "=SUMIFS(GewichtS,Monat_,'FMS Top'!R1C,Art_F,'F Top'!RC1)"
Range("C3:D3").Select
Selection.AutoFill Destination:=Range("C3:Z3"), Type:=xlFillValues
Range("C3:Z3").Select
Range("c3:Z3").AutoFill Destination:=Range("C3:Z" & Cells(Rows.Count, "A").End(xlUp).Row), Type:=xlFillDefault
End Sub


Kann man abfragen ob ein Filter drin ist und dann soll der Filter löschen...usw.. damit der Code weitermacht.

Für jede Hilfe wäre ich Dankbar.

Dankeschön