Hallo ich bin am verzweifeln. Ich möchte aus einer Tabelle mit Userforms Daten suchen. D.h. es soll aufgrund einer Eingabe in einem Textfeld dieser Wert in einem excelsheet gesucht werden. Meine Lösung findet einen Wert und dann wars das. Egal wie ich die Schleife setzte es funktioniert nicht. Es wird nur ein Wert und zwar der erste Wert gefunden, aber nicht die nachfolgenden. Hier habe ich die letzte Lösung mit einer Schleife, die allerdings nicht funktioniert.
For Each objWB In Application.Workbooks
If objWB.FullName = cstrFile1 Then
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 = Tex_Lizenz & objRange.Offset(0, 5)
Tex_Litkurz = Tex_Litkurz & objRange.Offset(0, 1)
Tex_FREI = ex_FREI & objRange.Offset(0, 0)
Else
MsgBox "Anwendung nicht gefunden!"
End If
If Not bolAlreadyOpen Then .Close False
End With
End If
Next