Ich hab folgenden einfachen Filter, den man über eine Schaltfläche setzen kann:
Private Sub Filter_Codiert_Click()
' N_CO Makro
ActiveSheet.Range("$A$5:$AP$25").AutoFilter Field:=42, Criteria1:="0"
ActiveWindow.SmallScroll ToRight:=-3
Range("AF1").Select
End Sub
'Je nach Konstellation krieg ich die Fehlermeldung "keine Zellen gefunden". Wie muss ich den Code anpassen, damit diese abgefangen wird und die Meldung nicht erscheint?
Gruss
Ben