Suchfunktion mit Eingabetaste starten
15.12.2004 11:17:45
Michael
Ich habe mir eine Suchfunktion zurechtgebastelt. mit Hilfe von den Feldern A2/B2/C2/D2/E2 suche ich meine Einträge. Jetzt mein Frage
Kann man das so automatisieren, daß, wenn ich in den oben genannten Felder (nur in diesen Feldern) die Eingabetaste drücke die Suchfunktion gestartet wird.
Private Sub CommandButton1_Click()
If Range("A3").Value = "" And Range("B3").Value = "" And Range("C3").Value = "" And Range("D3").Value = "" And Range("E3").Value = "" Then
MsgBox ("Bitte geben Sie einen Suchbegriff in den grünen Feldern ein" & Chr(13) & _
"Setzen Sie evtl. einen führenden * vor den Suchbegriff" & Chr(13) & _
"Die eingebenen Begriffe werden per logischen UND verknüpft." & Chr(13) & _
"Suchbegriffe unter Gesamt werden im kompletten Bestand gesucht." & Chr(13) & _
"Ein Suchbegriff-Beispiel: *Polly")
Range("A3").Activate
Else
Range("A11:U3576").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A2:E3"), Unique:=False
End If
End Sub
Danke für eure Hilfe
Michael