For Each Item In Response.data("Teil")
rs.FindFirst "[ID] = " & Item("id") ---> Fehler bein 2. Durchlauf der Schleife
...
Loop While Not rs.NoMatch
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(34, 34, 34); font-family: Arial,Verdana,sans-serif; font-size: 12px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: pre; word-spacing: 0px;">...und jetzt wirds spannend, zumindest für mich, ich bin kein vba Experte. Ich habe den Text für die Abfrage mal über einen String auf verschiedene Arten zusammengebaut und ausgegeben:</span>
Variante 1:
Debug.Print ("[ID] = " & Item("id"))
---> [ID] = 1003087 (das wäre der korrekte Text)
Variante 2:
Dim temp As String
temp = "[ID] = " + Item("id")
Debug.Print (temp)
---> [ID] = 1003087 (Durchlauf 1)
10033091003309 (Durchlauf 2...)
Variante 3:
Dim temp As String
temp = "[ID] = "
Debug.Print (temp)
temp = temp + Item("id")
Debug.Print (temp)
---> [ID] = (Durchlauf 1)
[ID] = 1003087
[ID] = (Durchlauf 2)
10033091003309
Variante 4:
Dim temp As String
temp = Item("id")
Debug.Print (temp)
temp = "[ID] = " + temp
Debug.Print (temp)
---> 1003087 (Durchlauf 1)
[ID] = 1003087
1003309
[ID] = 1003309 (Durchlauf 2)