Ich hab schon vieles versucht, Schleifen zu setzen, aber ich schaffe es nicht.
Also ich habe ein Userform mit leeren Textfeldern, in denen ein gesuchter Wert aus einem bestimmten Textfeld genommen wird und dieser in der Liste gefunden wird. Nun gibt es aber mehrere Treffer. Mir wird nur der erste Treffer angezeigt und das war es dann. Ich möchte aber die anderen Werte auch finden und in den gleichen Userformstextfeldern anzeigen lassen. Das werde ich mit einem MSgbox abfragen.
Nun, wo soll ich die Schleife ansetzen und welche?
Hier der Code:
--------------------
If Len(Trim$(Tex_Variable)) Then
Tex_Lizenz = "": Tex_Litkurz = "": Tex_LizOK = ""
For Each objWB In Application.Workbooks
If objWB.FullName = cstrFile1 Then bolAlreadyOpen = True: Exit For
Next
If objWB Is Nothing Then Set objWB = Workbooks.Open(cstrpath & cstrFile1)
With objWB
Set objRange = .Sheets(cstrTab).Columns(3).Find(What:=Tex_Variable, LookAt:=xlPart, _
LookIn:=xlValues, MatchCase:=False, SearchFormat:=False)
If Not objRange Is Nothing Then
Tex_Lizenz = objRange.Offset(0, 5)
Tex_Litkurz = objRange.Offset(0, 1)
Tex_FREI = objRange.Offset(0, 0)
Else
MsgBox "Anwendung nicht gefunden!"
End If
If Not bolAlreadyOpen Then .Close False
End With
Else
MsgBox "Anwendung im Feld Variable eingeben!", vbCritical
Exit Sub
End If