problem mit For-Schleife
04.10.2004 13:46:22
ray
ich versuche mit folgende code eine tabelle in der spalte a zu durchsuchen und beim jedem Eintrag "Mit" in A1 diese Zeile zu löschen.
Sub zeile_einf()
x = 0
For i = 1 To 10
x = x + 1
If Worksheets("Sheet1").Cells(x, 1).Value = "Mit" Then
Cells(x, 1).Select
Selection.EntireRow.Insert
End If
Next
End Sub
So gehts leider nicht, da er über den ersten gefundenen Eintrag nicht hinausgeht. Wo liegt der Fehler?
Viele Grüße aus Hamburg, bewölkt aber altweiberlich warm
Ray
Anzeige