Hallo Nils
Probier mal!
Gruß Nighty
[code]Sub Auffüllen()
Dim Daten As Variant, DatenName As Variant
Dim ZeilenIndex As Long
Daten = Range("B2:B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
For ZeilenIndex = 1 To UBound(Daten)
If Daten(ZeilenIndex, 1) <> "" Then
DatenName = Daten(ZeilenIndex, 1)
Else
Daten(ZeilenIndex, 1) = DatenName
End If
Next ZeilenIndex
Range("B2:B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row) = Daten
End Sub[/code]