hier der code.
Sub zellen_fuellen()
'Ermittlung der letzten Zeile
lz = Cells(Rows.Count, 173).End(xlUp).Rows.Row
'Durchlauf aller Zeilen
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob die 173. Spalte leer ist die ist eigentlich ab zeile 2 immer leer
If Cells(t, 173) = "" Then
' Dieser Wert soll bis zum Ende der zeilen
' (die mit Inhalt gefüllt sind in den anderen spalten) eingetragen werdn
Cells(t, 173).Value = "EOROER"
End If
'nächste zeile
Next t
End Sub
gruss erdal