hallo liebe Helfer,

habe folgendes VBA.
Set rngFilterbereich = Sheets("Markt").AutoFilter.Range
On Error Resume Next
Set rngFilterbereich = rngFilterbereich.Offset(1, 3).Resize(rngFilterbereich.Rows.Count - 5, 1)
If Not Err Then rngFilterbereich.Copy

funktioniert eigentlich sehr gut, nur kopiert es mir alle Ergebnisse aus der 4. Spalte auf einmal.
Komme aber nicht drauf, wie ich es schaffe, dass es nach dem Filtern eine Celle nach der anderen kopiert...
Das brauche ich, da ich den Pfad der Celle auslesen lassen will um einen Link einzubauen.

Vielen Dank.