Excel:In Spalte suchen dann Zeile lösche

[MarcinMc]

Hallo,

ich habe folgendes Problem. Ich möchte in einer Spalte nach einem Wert suchen, wenn dieser gefunden wird möchte ich die komplette entsprechende Zeile löschen. Das ganze soll mehrmals in einem Makro laufen bis keine entsprechenden Werte mehr gefunden werden.

kennt jemand eine Lösung???

Danke
Mc

[DasExperiment]

Hi MarcinMc,

Sub Zeilen_loeschen()
For i = 5 To 100
Cells(i, 3).Select
If Cells(i, 3) = 5 Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

In dem von mir genanntem Beispiel wird Spalte3 (also Spalte C) von Zeile 5 bis Zeile 100 nach dem Wert 5 durchsucht. Wird dieser gefunden, so wird die entsprechende Zeile gelöscht.
Hoffe das hilft Dir so weiter wenn nicht poste halt nochmal.

Gruß
Matthias

[1995]

Kleine Korrektur:

Nach "Selection.Delete Shift:=xlUp"
und vor "EndIf"
einfügen "i = i – 1"

Sonst wird von aufeinanderfolgenden Zeilen, in denen das Kriterium ( = 5 ) erfüllt ist, nur jeweils jede zweite gelöscht.

mfg Fritz Weinel

[DasExperiment]

Hi 1995,

stimmt, hätte auch mal testen sollen was ich so schnell da hin geklatscht habe! :-)

Gruß
Matthias