Hallo,

 

mein Problem ist die Autofilter Funktion, diese funktioniert nur teilweise bis zu einer Zeile x, danach werden einfach alle Zeilen kopiert und nicht die im Array definierten ("kritische Abweichung", "Abweichung", "Hinweis")...ist vielleicht im Sheets("4. Fragen") ein bestimmter Zeilenumbruch oder ähnliches was die Abfrage blockiert (gibt es sowas überhaupt?) oder ist der Code fehlerhaft?

 

Danke für Eure Hilfe

 

 

Sub

 

Sheets("4. Fragen").Select

 Rows("7:600").Select

Selection.AutoFilter Field:=5, Criteria1:=Array("kritische Abweichung", "Abweichung", "Hinweis"), Operator:=xlFilterValues

    Rows("7:600").Select

    Selection.Copy

    Sheets("3. Bericht").Select

    Rows("7:600").Select

    ActiveSheet.Paste

 

End