Office: (Office 2010) VBA Excel + nach offenen IE Fenster suchen und Element 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:

Code:

Public Sub DatenKopieren()

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.

Code:

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