AW: Geri ich brauch noch mal Deine Hilfe
05.03.2004 11:00:29
geri
Hallo Oli
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