könnte mir jemand den Code erweitern?
Der Anfang steht,
Filter nicht leere setzen und sichtbare ab A10:H10 kopieren
Selection.AutoFilter Field:=8, Criteria1:=""
Range(Cells(10, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 8)).SpecialCells( _
xlCellTypeVisible).Copy
Erweiterung:
Springe nun in Tabelle2
aktiviere Zelle B4
füge die kopierten WERTE ein.
Danke für eine Hilfe
Gruß Marcy