Was ist daran falsch!?
25.02.2005 10:51:45
Jonny
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