ich benutzeAutoFilter Durchsuchen einer Tabelle in VBA, was zu einer kleineren Datentabelle führt. Ich möchte nur die sichtbaren Zellen einer Spalte kopieren / einfügen, nachdem der Filter angewendet wurde. Außerdem möchte ich die gefilterten Werte einer Spalte mitteln und das Ergebnis in eine andere Zelle stellen.

Ich habe dieses Snippet auf Stack gefunden, mit dem ich die gesamten sichtbaren Ergebnisse des Filters kopieren / einfügen kann, aber ich weiß nicht, wie ich es ändern oder auf andere Weise, um nur die Daten einer Spalte (ohne den Header) zu erhalten es.

Range("A1",Cells(65536,Cells(1,256).End(xlToLeft).Column).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

Zusatz zur Antwort (um mit den gefilterten Werten zu rechnen):

tgt.Range("B2").Value =WorksheetFunction.Average(copyRange.SpecialCells(xlCellTypeVisible))