suchen und in Listbox anzeigen
28.09.2018 09:03:53
Olga
für meine Adressverwaltung habe ich mir die PLZ,Ort und Bundesland eine Tabelle angelegt.
Insgesamt sind dies 83368 Einträge
Wie kann ich am schnellsten die zugehörigen Orte nach Eingabe der PLZ finden?
Für die Schnelligkeit habe ich mir folgendes überlegt.
Nach Eingabe von 3 Zahlen wird nur der spezielle Bereich durchsucht.
Dies ist jedoch eine Menge Schreibarbeit.
Gibt es einen einfacheren Weg?
Danke!
Gruß, Olga
Private Sub txtPLZNr_suchen_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As _
Integer)
Dim sSuche As String, sLaenge As String
Dim sI As Single, sI1 As String, sC As Single
Dim x1 As Long, x2 As Long
Dim wksSt As Object
Set wksSt = ThisWorkbook.Worksheets("Städte")
sI = 0
sSuche = txtPLZNr_suchen.Value
If sSuche = "" Or Len(sSuche) = 1 Then
lstPLZ.Clear
Label1.Caption = ""
Exit Sub
End If
If Len(sSuche) 0 Then
Label1.Caption = "Es wurden " & sI & " Einträge von 83368 Einträgen gefunden !"
Else
Label1.Caption = "Es wurde " & sI & " Eintrag von 83368 Einträgen gefunden !"
End If
End With
End Sub