meine Zellformatierungen, z.B. Textanordnung oben oder Zeilenumbruch, sind nach der AutoFilter-Selektion (allerdings per Makro) weg. Muss ich in der Prozedur was ändern oder hinzufügen?
VG, Andi
Sub xx()
ActiveSheet.Paste
Range("A5:H100").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="<25000", Operator:=xlAnd
Selection.AutoFilter Field:=8, Criteria1:="latent"
Selection.AutoFilter Field:=7, Criteria1:="1"
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub