Hallo Philip,

den Weg über Intersect(...) schon versucht?

Sinngemäß:

Dim rng as Excel.Range

set rng = Range(...)

Intersect(rng, rng.SpecialCells(xlCellTypeVisible).Copy Worksheets(2).Range("A1")

"[...] sprich, wenn es zuletzt 5 offene Projekte gab und danach nur noch 4, dass auch wirklich nur die 4 Projekte angezeigt werden."

Spricht etwas gegen das Zurücksetzen des Arbeitsblattes vor dem erneuten Kopieren?