Herbers Excel-Forum - das Archiv
VBA - Nummerierung mit Bedingung
Betrifft: VBA - Nummerierung mit Bedingung
von: Drazen
Geschrieben am: 17.02.2005 10:36:47
Hallo,
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
Betrifft: AW: VBA - Nummerierung mit Bedingung
von: u_
Geschrieben am: 17.02.2005 10:43:45
Hallo,
du benutzt die Variable m zweimal.
Gruß