VBA - Nummerierung mit Bedingung

Bild

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
Bild


Betrifft: AW: VBA - Nummerierung mit Bedingung von: u_
Geschrieben am: 17.02.2005 10:43:45

Hallo,
du benutzt die Variable m zweimal.

Gruß


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA - Nummerierung mit Bedingung"