Suchfunktion/Makro
12.10.2004 11:38:43
michael
Noch ein Problem. Ich habe irgendwann eine Suchfunktion im Internet gefunden. Nach der Eingabe auf Tabelle1 in A1 wird auf dem gesamten Blatt nach dem eingegebenen Wert gesucht und die gefundene Zelle aktiviert. Wie kann man den Code so "umbauen" daß:
1. Das Betroffene Feld färbig markiert wird
2. Das alle Namen gefunden werden, bzw. das nach nochmaligen drücken der Entertaste die nächste Zelle aktiviert wird usw.
Hier der Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim gefunden As Range, Suchtext$
If Target.Address <> "$A$1" Then Exit Sub
Suchtext = [a1]
Set gefunden = Cells.Find(what:=Suchtext)
Range(gefunden.Address).Select
End Sub
Danke für eure Hilfe