Sub Suchgegriffelöschen()
Dim Wert As String
Dim i As Integer
Wert = "2" ' "2" ist der Suchbegriff
If Wert = "" Then Exit
Sub ' wenn nichts gefunden dann Ende
For i = Cells(Rows.Count, 5).End(xlUp).Row To 3 Step -1 ' die 5 steht für Spalte E
If Cells(i, 5) = Wert Then Rows(i).Delete ' die 5 steht für Spalte E
Next
End Sub
die Anpassung ist einfach tausche die 5 durch die Zahl 7 zB A=1, B=2, usw.
die Zahl 3 ind der For i Zeile ist die STARTZEILE des absuchens, vielleicht hast
du oben noch Spaltenbeschriftungen und so wird in diesem TEIL NICHT GESUCHT kannst
du aber ändern
gruss geri
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