AdvancedFilter dynamischer Rangebereich
22.02.2018 15:54:03
Thomas
ich nutze den .AdvancedFilter zum filtern. leider muss ich die zu filternde Liste immer erweitern, sodass ich jedes mal den Rangebereich anpassen muss.
dass er immer in die letzte Zeile schreibe bekomme ich hin aber in die letzte Zeile und Spalte schaffe ich nicht.
lngLastRowSi = Sheets("Tilgungspläne").Cells(Rows.Count, 2).End(xlUp).Row
lngLastRowAw = Sheets("Auswertung").Cells(Rows.Count, 6).End(xlUp).Row
lngLastRowEg = Sheets(inptnm).Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tilgungspläne").Range("A1:T" & lngLastRowSi).AdvancedFilter ' hier sollte 'immer bis letzte Spalte beschriebene kopiert werden
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Auswertung").Range("A1:T" & lngLastRowAw), _
CopyToRange:=Sheets(inptnm).Range("A" & lngLastRowEg + 1), _
Unique:=False
Beste Grüße
Thomas