If Marker = "7" Then
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$N$1046739").AutoFilter Field:=3, Criteria1:=Array( _
"J100-A", "J100-B", "J100-C", "J100-D" _
, "J102-A", "J102-B", "J102-C", "J102-D" _
, "J104-A", "J104-B", "J104-C", "J104-D" _
, "J106-A", "J106-B", "J106-C", "J106-D" _
), Operator:=xlFilterValues
ElseIf Marker = "9" Then
Sheets("Doppelliste").Select
ActiveSheet.Range("$A$1:$N$1046739").AutoFilter Field:=3, Criteria1:=Array( _
"J101-A", "J101-B", "J101-C", "J101-D" _
, "J103-A", "J103-B", "J103-C", "J103-D" _
, "J105-A", "J105-B", "J105-C", "J105-D" _
, "J107-A", "J107-B", "J107-C", "J107-D" _
), Operator:=xlFilterValues