Private Sub Zählen()
Dim m As Integer
Dim xZeile As Long
Dim rng As Range
Set rng = Range("A29:A59")
m = rng.Rows.Count
xZeile = Range("A65536").End(xlUp).Row
For m = 1 To xZeile
If Cells(m, 3) = "" Then
Exit Sub
Else
Cells(m, 1) = "=IF(RC[2]="""","""",R[-1]C+1)"
End If
Next m
End Sub