Hallo,
haben einen Code, der innerhalb einer Datenreihe bestimmte Zeilen löscht, wenn eine Bedingung "S" erfüllt ist:
j = 0
For i =1+ 1 To 50- j
If Cells(i, 2) <> "S" And i <= iRowEnde - j Then
Rows(i).Delete shift:=xlUp
j = j + 1
i = i - 1
End If
Next i
Der Code soll am Anfang die Zeilen 1-50 durchlaufen, da durch das Löschen sich die Zeilenzahl reduziert, muß sich auch die 50 entsprechend reduzieren s.code oben. Allerdings komme ich damit nicht mehr aus der Schleife raus....
Hat jemand einen Tipp?
Danke und Gruß A.