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 anderen Excelsheet gesucht werden. Meine Lösung findet einen Wert und dann wars das. Also z.B. suche ich HEUTE - wird gefunden und in einem Textfeld ausgegeben. Da steht dann HEUTE. Aber ich möchte auch in dem Excelsheet den nächten Wert finden, der HEUTEMORGEN lautet. D.h. ich möchte nach der Anzeige von HEUTE eine msgboxabfrage mit -Nächsten Wert suchen? - mit JA (die msgbox kann ich erzeugen) und dann wird HEUTEMORGEN gefunden und in dem TExtfeld angezeigt. ABER - Egal wie ich die Schleife setzte es funktioniert nicht. Es wird nur ein Wert und zwar der erste Wert (HEUTE) gefunden, aber nicht die nachfolgenden. Hier habe ich die letzte Lösung mit einer Schleife, die allerdings nicht funktioniert.
Wäre echt super, wenn mir einer helfen könnte. Sollte noch etwas zur Lösung benötigt werden, mich fragen.
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