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
|