Hallo,
folgendes Code Schnipsel kopiert mir zwar -wie gewollt- schrittweise und zeitverzögert, aber leider sämtliche (und nicht nur die autogefilterten) Daten in das Filterergebnis sheet ("gefiltert"):
With Worksheets("kurse")
.Range(.Cells(i, 2), .Cells(i, 5)).Copy Worksheets("gefiltert").Cells(i - 21, 2)
End With
'Warten
Call Sleep(500) '0,5 Sekunden
Next i
Der Autofilter ist im Ausgangs sheet "kurse" gesetzt, und nur die Gefilterten soll er kopieren und einfügen.
Habe schon mit specialcells experimentiert, aber das funzt leider nicht...
Weiss jemand Bescheid?
Besten Dank und Grüsse,
Bernhard