Office: Gefilterte Zellen befüllen

Hallo zusammen,
Ich versuche sichtbare Zeilen in einem gefilterten Bereich zu füllen.
Mein aktueller Ansatz :

Range("I7:I" & Cells(Rows.Count, "I").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1).Value = ActiveCell.Offset(0, -4)

Dies klappt aber nur einmal.
Ich Kriege es auch nicht hin das dies auf alle sichtbaren Zeilen in der Spalte I
angewandt wird.

Hat einer von euch eine Idee die mich weiterbringen würde ?

Vielen Dank

:)

 

Hallo , gerne

das eigentliche Problem ist das mir immer nur die erste gefilterte sichtbare Zeile einen Wert reinschreibt und nicht in die Zeilen darunter. Selbst wenn ich den Code ein zweites mal ausführe.

 

Ok, Baustelle habe ich offen - jetzt siehts aber anders aus als zuerst gedacht.
Was genau ist Dein Ziel?

Vermutung:
Code:

 

Ich würde gerne in Spalte D die Werte aus Spalte b übernehmen.
Das kriege ich hin.
Allerdings sollte diese Werte nur in die sichtbaren Zellen übernommen werden.
In den nicht sichtbaren Zellen(Autofilter) soll nichts passieren

Vielen Dank

 

Dann schau mal in #4 (unsere Posts haben sich überschnitten)

 

Funktioniert und wieder was gelernt !!

Vielen Dank