hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun festgestellt das der Suchtext öfters in einer spalte auftaucht.
Möchte nun ne Listbox einfügen um die Daten darin einzulesen.
Bis jetzt hab ich folgendes:
Private Sub CommandButton7_Click()
Sheets("Z").Activate
With ActiveSheet.Range("A:E")
Set found = .Find(UserForm1.TextBox2.Text)
If Not found Is Nothing Then
ErsterTreffer = found.Address
zeile = found.Row
If found.Row > zeile Then zeile = found.Row
End If
UserForm1.TextBox3 = _
.Cells(zeile, 2).Value
UserForm1.TextBox4 = _
.Cells(zeile, 3).Value
UserForm1.TextBox5 = _
.Cells(zeile, 4).Value
UserForm1.TextBox6 = _
.Cells(zeile, 5).Value
UserForm1.TextBox7 = _
.Cells(zeile, 1).Value
End With
End Sub
Suchtext ist in Spalte E (mehrmals vorhanden)
Wert in Spalte A ändert sich
Werte der anderen Spalten bleiben gleich
Wie kann ich das Makro erweitern vergleich den Suchtext mit dem Zelleninhalt wenn gleich dann übenehm den Wert aus spalte A in die Listbox.
DANKE