Office: (Office 2010) VBA: Im offenen IExplorer ein Objekt ohne ID klicken

Hallo Zusammen,

viele Male konnte ich hier im Forum wertvolle Informationen finden und mein laienwissen erweitern. Jetzt stehe ich vor einem kleinen Problem, für dass ich keine Lösung finde.

Ausgangspunkt:

In einem offenen IExplorer benutzt der User ein CMS das größtenteils mit JAVA arbeitet. Mittels eines Makros greife ich Daten ab und kopiere diese.... Beispiel:

Public Sub Kopieren()

Dim objShell As Object, neu As Worksheet
Dim win As Object, IEDoc As Object
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE.EXE") <> 0 Then
If win.document.Title Like "Integriertes*" Then
Set IEDoc = win.document
'Set neu = Worksheets.Add(After:=Worksheets(Worksheets.Count))
IEDoc.execCommand ("SelectAll")
IEDoc.execCommand ("Copy")

Sheets("Daten").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End If
End If
Next
Set objShell = Nothing

End Sub

Das klappt auch so wie es soll und ich kann die Daten daraus entsprechend mit anderen Makros so bearbeiten wie ich diese benötige.

Besondere Umstände erfordern, dass in diesem CMS zunächst ein besimmer "Tab-Index" geklickt werden muss. Dieser besitzt aber leider keine Obj-ID.

Ich habe einen Code gefunden und umgeschrieben, der genau das macht was ich brauche. Allerdings ist bei diesem der Ansatz, dass ein neuer IExplorer geöffnet wird.
Ich benötige den Code allerdings mit gleichem Ansatz wie den ersten oben. Also es soll nach einem bereits offenen IE Fenster mit bestimmten Titel gesucht werden und in diesem der Tab-Index geklickt werden der keine Obj-ID besitzt.

Public Sub clicker()

Dim IEApp As Object, IEDocument As Object
Dim adresse As String
adresse = "xyz.de"
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate adresse
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.document
Do: Loop Until IEDocument.ReadyState = "complete"
For Each all In IEDocument.all
If all.innertext = "Ziel1" Then all.Click
Next
Set IEDocument = Nothing
Set IEApp = Nothing

End Sub


Kann mir jemand hier vielleicht zeigen wie der Code hierfür aussehen müsste?

Bin für jede Hilfe Dankbar.

Grüße
Dennis