Ich habe ein Makro geschrieben mit dem ich über eine ComBox den gewünschten Begriff suche (Suchfunktion einfach aufgezeichnet).
Die Suche funktioniert aber leider nur bei deaktivierten Autofilter.
Sub ProjektSuchenBez()
Dim finden
On Error GoTo fehl_ooe
finden = comProjektSuchen.Text
Unload usrProjektSuchen
Cells.Find(What:=(test), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Unload usrProjektSuchen
Exit Sub
fehl_ooe:
MsgBox "Angegebene Bezeichnung wurde nicht gefunden"
usrProjektSuchen.Show
Exit Sub
End Sub
Gibt es die Möglichkeit auch bei aktivem Autofilter die Suche durchzuführen - wie muß ich den Code ändern.
Wenn ich es manuell mache funktioniert es?
Gruß
Peter H