Hi,
ich bräuchte einen Code der einen Bereich durchsucht und bei Treffern, das gefundene Wort im Filter anzeigt. Es gibt eine Gruppe Wörter die gesucht werden soll, und bei jedem Treffer sollte der Filter ausgebldenet werden.
Kriteria mit Beispiel:
1) "Pizza" und "Kirschen" werden gesucht.
2)"Pizza" ist ein Treffer, und der Filter blendet dann Pizza ein.
3) Eine vorher geöffnete Filtereinstellung eg. "Brombeeren" sollte dabei aber nicht geschlossen werden.
Hier mal ein Snippet das für mich Kriterium 2) erfüllt hat::
Snippet 1)
Sub Custom1()
hkl = Array("Peter", "Petra")
Range("A5").AutoFilter field:=1, Criteria1:=hkl(0), Operator:=xlOr, _
Criteria2:=hkl(1)
End Sub
Mein Versuch Kriterium 1 zu erfüllen. Das Verschieben der Zelle durch offset wollte ich durch das filter einstellen ersetzen.
Snippet 2)
Sub x()
Dim FindWhat, rngCell As Range, i As Integer
FindWhat = Array("enterprise", "variety", "management", "pizza")
For i = 0 To 3
For Each rngCell In Range("A:G", Range("A" & Rows.Count).End(xlUp))
If InStr(rngCell, FindWhat(i)) <> 0 Then
rngCell.Offset(0, 3) = rngCell
rngCell.Offset(, 1).Resize(, 2).Clear
End If
Next rngCell
Next i
End Sub
Wie kann ich die code snippets zusammenfügen so dass alle drei Kriterien erfüllt werden? Ich wollte die Treffer aus Snippet 2 als array speichern und dann anhand des arrays die filter durch snippet 1 einstellen, aber ich weiß nicht wie ich das codieren kann. Kriterium 3 sollte da auch noch irgendwie reinpassen.
Danke für eure Hilfe!
Peter
|