Schleife korrigieren
19.11.2008 10:57:19
steffen
wie bekomme ich es hin, dass meine erste schleife wieder bei 1 beginnt, wenn die innere schleife fertig ist. Natürlich will ich dadurch auch keine endlos-schleife haben :)
Der Code soll eine Vorgabe in B suchen. Wenn er den ersten Treffer hat, liest er die danebenstehende Zelle in A aus und fängt von oben an alle Zeilen mit diesem Inhalt zu löschen. Danach wird die Vorgabe in der nächsten Zelle in B gesucht und der Inhalt daneben aus A ausgelesen usw.
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
If Cells(i, 2).Value = PKS Then
a = Cells(i, 1).Value
For k = 1 To x
If Cells(k, 1).Value = a Then
ActiveSheet.Rows(k).Delete
k = k - 1
x = Cells(Rows.Count, 1).End(xlUp).Row
End If
Next k
End If
Next i
Gruß Steffen