Ich habe eine UF, wo ich in TextBox20 einen Wert eingebe und bei Klick auf CommandButton1
Werden mir in der ListBox1 alle Werte die ungefähr oder gleich lauten von Sheets "Liste" angezeigt.
Das funktioniert auch sehr gut.
Aber es werden nur Werte angezeigt die in der Spalte A in " Liste" stehen.
Wenn ich in TextBox20 einen Wert eingebe der in "Liste" Spalte B steht dann kommt die MsgBox "Leider kein Wert gefunden"
Also ich möchte gerne das in "Liste A2:Q" alles durchsucht wird und nicht nur in Spalte A
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
Private Sub CommandButton1_Click()
Dim WkSh As Worksheet ' die Variable nimmt ein Excel-Sheet auf
Dim lZeile As Long ' Lauf-Variable für die Schleife
Dim f As Integer
Dim LetzteZeile As Integer ' damit wir wissen bis wohin eigentlich
Dim SuchString As String
Dim s As String
ListBox1.Clear ' Löscht den alten Suchantrag
Set WkSh = Worksheets("Liste") 'Zuordnung der Adressens-Tabelle
WkSh.Unprotect
LetzteZeile = WkSh.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Excel sagt mir bis wohin
'einen Suchstring erzeugen aus den Eingaben
SuchString = Trim(UCase(TextBox20.Text)) '& Trim(UCase(TextBox2.Text))
For lZeile = 2 To LetzteZeile ' Schleife zum Suchen
'Vergleichsstring erzeugen aus den Zellen
s = UCase(Trim(WkSh.Cells(lZeile, 1))) & UCase(Trim(WkSh.Cells(lZeile, 2)))
If SuchString = s Then Exit For ' raus wenn gefunden - wenn absolut identisch
' raus wenn ähnlich (nur Nachname z. B.
If Left(s, Len(SuchString)) = SuchString Then Exit For
Next lZeile
If lZeile > LetzteZeile Then ' es wurde nichts gefunden
MsgBox (" Leider kein Eintrag gefunden... "), _
48, " Hinweis für " & Application.UserName
Exit Sub
End If
Me.TextBox1 = WkSh.Cells(lZeile, 1).Value 'Spalte A=Familienname
Me.TextBox2 = WkSh.Cells(lZeile, 2).Value 'Spalte B=Vorname
Me.TextBox3 = WkSh.Cells(lZeile, 3).Value 'Spalte C=Adresse
Me.TextBox4 = WkSh.Cells(lZeile, 4).Value 'Spalte D=Ort
Me.TextBox5 = WkSh.Cells(lZeile, 5).Value 'Spalte E=PLZ
Me.TextBox6 = WkSh.Cells(lZeile, 6).Value 'Spalte F=Bundesland
Me.TextBox7 = WkSh.Cells(lZeile, 7).Value 'Spalte G=Tel.Privat
Me.TextBox8 = WkSh.Cells(lZeile, 8).Value 'Spalte H=Handy Privat
Me.TextBox9 = WkSh.Cells(lZeile, 9).Value 'Spalte I=Fax Privat
Me.TextBox10 = WkSh.Cells(lZeile, 10).Value 'Spalte j=Email Privat
Me.TextBox11 = WkSh.Cells(lZeile, 11).Value 'Spalte K=Tel.Firma
Me.TextBox12 = WkSh.Cells(lZeile, 12).Value 'Spalte L=Handy Firma
Me.TextBox13 = WkSh.Cells(lZeile, 13).Value 'Spalte M=Fax Firma
Me.TextBox14 = WkSh.Cells(lZeile, 14).Value 'Spalte N=Email Firma
Me.TextBox15 = WkSh.Cells(lZeile, 15).Value 'Spalte O=Webadresse
Me.TextBox16 = WkSh.Cells(lZeile, 16).Value 'Spalte P=Geburtstag
Me.TextBox17 = WkSh.Cells(lZeile, 17).Value 'Spalte Q=ICQ Nummer
For lZeile = 1 To LetzteZeile
If Len(TextBox20.Text)