wert aus textbox suchen zeile löschen
21.01.2008 13:15:22
achim
Wer kann verbessern?
der code sollte die zeile löschen wenn der wert aus der textbox1 gefunden worden ist. leider passiert da nichts.
gruss achim h.
Dim Lrow As Long
Application.ScreenUpdating = False
With Sheets("ABNDaten")
Lrow = .Cells(Rows.Count, 3).End(xlUp).Row
For i = Lrow To 1 Step -1
If .Cells(i, 3) = Textbox1.Value Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True