https://www.herber.de/bbs/user/41908.xls
Hier die datei zum besseren verständnis.
Ich hoffe mir kann jemand helfen.
Vielen Dank und ein schönes wochenende
Sub Eintragen()
For i = 1 To ActiveSheet.Range("b65536").End(xlUp).Row
If Cells(i, 1) "" Then
seitenzahl = Cells(i, 1)
Else
Cells(i, 1) = seitenzahl
End If
Next i
End Sub
Gruß
Jürgen