Hilfe!!! Suchalgorithmus
10.04.2002 14:10:49
Marian
Ich verzweifle...
Ich brauche einen guten und schnellen Suchalgorithmus.
Problem:
Ich will mit einer Userform, die ein Textfeld beinhaltet,
einen Eintrag aus einer ewig langen Spalte finden.
In das Textfeld trage ich den Suchbegriff ein.
Dann drücke ich suchen. darauf hin, sollte er eigentlich
die gefundene Zelle aktivieren.Funktioniert aber nicht.
Könnt Ihr mir helfen?
Private Sub CmdSuchen_Click()
Dim suchbegriff
Application.ScreenUpdating = False
suchbegriff = CmdSuchen.Value
Worksheets("Tabelle 2").Select
suchendat suchbegriff
Worksheets("hgrund").Select
Application.ScreenUpdating = True
Die folgende Suchfunktion wird nicht akzeptiert
Sub suchendat(suchbegriff)
Columns("A:A").Select
Selection.Find(What:=suchbegriff, _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
Gruss Marian!