kpoieren, mit Kriterium, 2 Bereiche
10.02.2020 15:48:11
Fred
Hallo Excelaner,
ich habe da wieder so ein Problem.
wenn ich folgenden Code nutze, wird ein Bereich "A2:AE...) mit Kriterien (in Blatt "Kriterien" _ ) nach Blatt Tabelle1 kopiert.
Worksheets("Tabelle1").Activate
EndeBasis = Sheets("Basis").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Basis").Range("A2:AE" & EndeBasis).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Kriterien").Range("G1:N3"), CopyToRange:=Range("A2:AE2") _
, Unique:=False
Nun möchte ich allerdings, dass der Bereich A3 bis K..ende, sowie der zugehörige Bereich V3:AE..ende nach Tabelle1 kopiert wird.
Kann mir jemand dabei bitte helfen.
Beispielmappe--https://www.herber.de/bbs/user/135110.xlsb
Gruß
Fred