Hallo zusammen, ich programmiere eine Suchfunktion, welche mehrere Datenblätter mit Nachnamen durchsucht. Dies mache ich mit folgendem Code:
Private Sub lb_Filter_Click()
Alte_Suche_Löschen
Dim i As Integer
Dim gefunden As Boolean
i = 7
Do Until Sheets("input_people").Cells(i, 2) = lb_Filter.Value
'sucht bis zu den eingegebenen Buchstaben
i = i + 1
If i > 3000 Then
Exit Sub
End If
Loop
For j = 1 To 18 ' sucht die zu dem Name zugehörigen Daten raus und zeigt diese in der daneben stehenden Tabelle
Cells(j, 10) = Sheets("input_people").Cells(i, j)
Next j
Jetzt besteht allerdings das Problem, wenn ich z.B. Namen mit dem Anfangsbuchstaben J suche, mir in der Liste alle Namen angezeigt werden. Wenn ich dann jedoch nach Ja suche, werden nur die Namen angezeigt, die oberhalb des Namen mit dem Umlaut, hier Jä, stehen.
Obwohl dadrunter auch noch Namen mit den Anfangsbuchstaben Ja stehen.
Könnt ihr mir vielleicht einen Tipp geben?
Viele Dank im voraus!
|