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