For Each Cell In Range("B5:B7")
If ActiveCell >= "0" Then
ActiveCell(Selection.Rows.Count + 1, 1).Select
End If
Next
bei b8 fügt er nichts mehr ein weil der bereich dann ja beendet ist,
nun soll er wenn b7 ereicht ist das dann z.b. bei c5 weitergeht bis c7 dann z.b. e5 usw.
Wäre schön wenn mir jemand helfen könnte und allen schöne Oster.