Mein Spalte ist 89000 zeilen lang.
Ich möchte gerne in Vba das er alle zeilen löscht, wenn das wort "EPS Tabak " (vier Leerzeichen nach Tabak ) in Spalte b findet und nachrutscht.
Wie mache ich das? Brauche unbedingt VBA
Mfg Sven
Sub lösch()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=if(iserror(find(""EPS Tabak "",RC2)),Row(),0)"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub
Sub zeilenloeschen()
Dim i As Long
Dim letzteZeile As Long
Dim suchBereich As Range
Dim gefunden As Range
Dim ersterTreffer As String
Dim suchWert As String
suchWert = "EPS Tabak" 'hier kommt dein Suchwert rein
With ThisWorkbook.Sheets("Tabelle1")
letzteZeile = .Range("B" & Rows.Count).End(xlUp).Row
Set suchBereich = .Range("B1:B" & letzteZeile)
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
If Not gefunden Is Nothing Then
ersterTreffer = gefunden.Address
Do
gefunden.Activate
ActiveCell.EntireRow.Delete shift:=xlUp
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
Loop While Not gefunden Is Nothing
End If
End With
End Sub
mfg Bernd