Filter aktualisieren
08.04.2020 12:16:22
Fred
Guten Tag Excel-Profis,
ich importiere Daten aus einer Mappe in mehrere Tabellenblätter der ausführenden Mappe.
Der relevante Code:
zielrange = ThisWorkbook.Sheets("Center").Range("K20").Text
With Workbooks("mw_d1.xlsm").Worksheets("Stamm")
Set bereich = .Range("A2:DH" & .Cells(.Rows.Count, 1).End(xlUp).Row)
bereich.Copy ThisWorkbook.Worksheets("T_1").Range(zielrange)
End With
Nun sind allerdings die Daten in zB "T_1" gefiltert.
Die Werte aus der Datei "mw_d1.xlsm" werden allerdings so nur angefügt, - die Filterkriterien nicht angewendet.
Der Button "Alle aktualisieren", Register Daten ändert daran nichts.
Meine Frage:
Wie wende ich die zuvor eingestellten Filterkriterien auch an die neu angefügten Werte an?
Ist es mit einer Tastenkombination zu machen,- brauche ich eine Code-Ergänzung ...?
Weis jemand hierfür die Lösung?
Gruß
Fred