mit nachstehendem Code lösche ich alle Zeilen in einer Tabelle wo die Zahl 103 vorkommt.Passt auch soweit
Sub Löschen
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match(103, Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Jetzt möchte ich aber zwei Dinge ändern und komm da nicht weiter:
1)Ich möchte den absoluten Suchbegriff erstzen duch den Inhalt einer Textbox auf einer Userform, also z.B. UserForm1.TextBox2.Text
und 2) soll nur gelöscht werden wenn der Suchbegriff in der Spalte A vorkommt
Wer kann da bitte eingreifen?
Vielen Dank
Peter S.