ich möchte mit folgendem Code eine Nummerierung im bestimmten Bereich erreichen wenn Bedingung erfüllt ist:
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
Irgendwie geht das nicht, was mach ich falsch?
Grüsse
Drazen