Was ist daran falsch!?
Dim a As Integer
Dim i As Integer
a = 1

For i = 8 To 100

If ActiveSheet.Cells(i, 16).Value = "" Then
ActiveSheet.Cells(i, 16).Value = a // er meckert hier
a = a + 1
End If
Next i
Das makro soll überprüfen, ob eine Zelle leer ist. Sobald sie leer ist, soll er sie nummerieren..
danke