Guten Abend

Ich möchte die leeren Zellen einer Spalte befüllen.

Es füllt mir zwar die leeren Zellen aus aber das Ergebnis stimmt nicht da die Erste leere Zelle mit E1 ausgefüllt wird und nicht mit zb E89

Es wäre auch möglich die letzte befüllte Zelle zu bestimmen und ab dann dort die Formel einzuügen, leider ist das etwas zu Hoch für mich,

Wäre nett wenn mir hier im Forum we helfen könnte

Danke Bettina

Sub füllen()

Dim iRow As Integer

iRow = Cells(Rows.Count, 1).End(xlUp).Row

Range("AD3:AD" & iRow).SpecialCells(xlCellTypeBlanks).FormulaLocal = "=JAHR(E1)"

End Sub