Code ergänzen.....bitte um Hilfe
24.09.2004 12:38:51
Peter
hab mal wieder ein kleines Problem und bitte um Hilfe. Mit nachstehendem Code will ich in einer Tabelle alle Zeilen löschen, in denen meinetwegen der Wert "Affe" steht. Wenn ich im Code schreibe var = Aplication.Match("*Affe*", usw. dann führt er es richtig aus; mein Anliegen ist es aber den zu suchenden Begriff über eine ComboBox auszuwählen wie im Code ersichtlich.
Leider funktioniert es nicht, weß jemand wo der Fehler liegt?
Sub DeleteZeile()
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("*frmAuswertung.ComboBox2.Value*", Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Vielen Dank
Peter S.