habe folgendes Makro erstellt, das eine Liste nach leeren Zellen prüft und ob die ersten beiden Stellen einer Zelle numerisch sind. Wenn die ersten beiden Stellen numerisch sind, soll zur nächsten Zelle gesprungen werden und wenn die Zelle leer ist, soll die ganze Zeile gelöscht werden. Das klappt soweit auch ganz gut. Nur wenn ich mehrere leere Zellen habe, macht der Zähler Probleme und ich komme in eine Endlos-Schleife. Wie kann ich das Problem lösen?
Danke im Voraus!
Gruß
Stefan
Sub loeschen()
i = InputBox("Wie viele Wiederholungen wünschen Sie?")
z = 2
For n = 2 To i
Cells(n, 12).Select
wert = Mid(Cells(n, 12).Value, 1, 2)
If wert <> IsNumeric(wert) Then
If wert = "" Then
Cells(n, 12).Select
Cells(n, 12).EntireRow.Delete
n = n - 1
Cells(n, 12).Select
GoTo ende
End If
Cells(n, 12).Select
Cells(n, 12).EntireRow.Delete
n = n - 1
Cells(n, 12).Select
ende:
End If
Next
End Sub