|
Hallo zusammen
Den nachfolgenden Code möchte ich vereinfachen:
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
Dieser Code zieht sich bis ca. Marker 60 hin.
Ich würde gerne die Zeile mit den Variablen mit den Zellen aus der Tabelle "Detaildaten" füllen.
in etwa so:
If Marker = "7" Then
Bereichsfilter = Range("A2:" & lngRow).Value
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$N$1046739").AutoFilter Field:=3, Criteria1:=Array( _
Bereichsfilter), Operator:=xlFilterValues
Über lnGRow erhalte ich die letzte Zeile, die einen Wert hat.
Hat jemand einen Ansatz wie ich dies bewerkstelligen kann.
Gruss
Martin
|