Hallo,

ich hab folgendes Problem, was ich nicht nachvollziehen kann woran es liegt, mein Zähler in dem Fall i soll nur + 1 hochzählen - wenn die erste If Bedinungen erfüllt ist, d.h. das er nur hochzählen soll wenn in der Zelle ein Wert steht. Steht in der Zelle kein Wert soll auch nicht hochgezählt werden, sondern zur nächsten Zelle gesprungen werden. Läuft auch alles, nur das er auch hochzählt wenn in der Zelle kein Wert steht. Vielen dank im Voraus.

Sub Test7()

    Dim i As Long
    Dim LetzteZeile As Long
    
    On Error Resume Next
    
    i = 0
    
    LetzteZeile = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
    
    For i = 0 To LetzteZeile
        
        If ActiveCell <> "" Then
        
            ActiveCell.Offset(0, -1).Activate
            
            ActiveCell = i + 1
            
            ActiveCell.Offset(1, 1).Activate
            
        Else
            
            ActiveCell.Offset(1, 0).Activate
                    
        End If
        
    Next i
    
End Sub