Hallo,
möchte 2 Spalten (A und B – PLZ und Ort) einer Excel-Datei in Spalte A nach einem bestimmten Suchkriterium durchsuchen und dann die gefundenen Werte der Spalte A und B in einer Listbox ausgeben.
Das Suchkriterium wird über ein Text-Eingabefeld vom User festgelegt.
Der Code sieht bisher wie folgt aus:
Private Sub CommandButton1_Click()
With Worksheets(1).Range(„a1:b500“)
Set c = .Find(txtEingabe, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ListBox1.AddItem c.Value
Set c = .FindNext©
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Leider werden halt nur die Werte der Spalte A in die Listbox eingetragen. Ich möchte aber auch noch die von Spalte B.
Wer kann mir helfen?
Danke
Peter