Sub marc()
Dim x&
Application.ScreenUpdating = False
For x = 30 To 1 Step -1
If Cells(x, 1).Value = Cells(3, 2).Value Then Rows(x).Delete
Next
End Sub
Option Explicit
Sub marc()
Dim x&, strg$
Application.ScreenUpdating = False
With Tabelle1
strg = Cells(3, 2).Value
For x = 30 To 1 Step -1
If Cells(x, 1).Value = strg Then Rows(x).Delete
Next
End With
End Sub
Sub marc2()
Dim lngR As Long, strT As String, rngDel As Range
With Sheet1
strT = .Cells(3, 2).Value ' Text from B3
For lngR = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If .Cells(lngR, 1).Value = strT Then
If rngDel Is Nothing Then
Set rngDel = .Cells(lngR, 1)
Else
Set rngDel = Union(rngDel, .Cells(lngR, 1))
End If
End If
Next
End With
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen