Wer kann helfen
ich suche ein makro das in meiner tabelle spalte E nach den begriffen
MV34 und MV35 und MV37 und MV38 sucht und wenn gefundne dann die zeile löscht.
danke
achim h.
Sub sDelete()
Dim ws As Worksheet
Set ws = ActiveSheet
' "e1:e500" Anpassen!
sDeleteText ws.Range("e1:e500"), "MV34"
sDeleteText ws.Range("e1:e500"), "MV35"
sDeleteText ws.Range("e1:e500"), "MV37"
sDeleteText ws.Range("e1:e500"), "MV37"
Set ws = Nothing
End Sub
Sub sDeleteText(rg As Range, strText As String)
Dim c As Range
Do
Set c = rg.Find(strText, LookIn:=xlValues)
If Not c Is Nothing Then
c.EntireRow.Delete
End If
Loop While Not c Is Nothing
End Sub