Nach dem filtern NUR das gefilterte in eine neue Tabelle einbauen

[StaBau11]

Hallo Gemeinde,

habt ihr eine Idee wie ich das anstellen kann oder ob das überhaupt geht?

Ich möchte gerne meine gefilterte Tabelle( und ich meine nur die angezeigten Werte) in eine separate Tabelle Exportieren. Wenn ich dann den filter auf meiner Tabelle ändere soll das exportierte aber stehen bleiben. Ginge es nun auch noch das wenn ich nun den geänderten Filter wieder exportiere das er mir das ergebnis dann unter den letzten export anzeigt?

Vielen Dank im Vorraus

PS. Suche ergabkeine 100% Treffer

[UweD]

Hallo

kopiert werden nur die gefilterten Werte (jedes mal mit Überschrift)

Code:

    Dim Tb1 As Worksheet, Tb2 As Worksheet, Sp As Integer, LR As Long
    Set Tb1 = Sheets("Tabelle1")
    Set Tb2 = Sheets("Tabelle2")
    Sp = 1 'Spalte A
   
    LR = Tb2.Cells(Tb2.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte

    Tb1.UsedRange.Copy Tb2.Cells(LR + 1, Sp)

 LG UweD

[Klaus-Dieter]

Hallo,

sieh dir mal den Spezialfilter an. (Daten / Sortieren und Filtern / Erweitert)