ich verwende folgendes Makro um bestimmte Filterergebnisse aus einer Liste zu löschen.
Funktionsweise: Ich schreibe z.B. GMR3 und alle Teilenummern mit GMR3 werden aus der Liste entfernt.
Funktioniert soweit. Nun gebe ich GMR7 ein und eine MsgBox sagt mir, dass diese Teilenummer nicht vorhanden ist. Wie kann das sein, wenn zig Einträge vorhanden sind?
Ich glaube nicht, dass es am Makro liegt... oder?
Sub Filtern()
Selection.AutoFilter
ActiveSheet.Range("A:H").AutoFilter Field:=2, Criteria1:="=" & TextBox1.Value & "*" _
, Operator:=xlAnd
iRowL = Cells.Find(what:="*", after:=Range("A1"), _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For iRow = 2 To iRowL
If WorksheetFunction.CountA(Rows(iRow)) > 0 Then
If rng Is Nothing Then
Set rng = Rows(iRow)
Else
Set rng = Union(rng, Rows(iRow))
End If
End If
Next iRow
rng.Select
End
Sub ()
Wäre euch für Tipps äußerst dankbar...
Viele Grüße
Albert