ich bin gerade dabei, eine zu gross gewordene Adressliste mit Suchoptionen auszustatten. Eine in einer Userform integrierte Listbox die alle Adressen listet, soll via TextBox und Button nach Daten durchsucht werden. Das habe ich auch hingekrigt, doch leider kann ich nur die 1. Spalte durchsuchen. Es sollten aber alle 10 Spalten durchsucht werden. Da stehe ich nun an :-(
Private Sub CommandButton1_Click()
Dim i As Integer
Dim sText As String
sText = TextBox1.Text
For i = 1 To lstAdressen.ListCount - 1
If lstAdressen.List(i) = sText Then
Me!lstAdressen.Selected(i) = True
End If
Next i
End Sub