Hallo zusammen,
ich hab im Internet folgenden Codeschnipsel gefunden, der auch immer wunderbar funktioniert hat, um per VBA den ersten Googletreffer auszulesen und in Excel zu speichern.
Sub ErsterGoogleTreffer(StrRange As String, IE As Object)
Dim result As Object, Zelle As Range
For Each Zelle In Range(StrRange)
IE.navigate "https://www.google.com/search?q=" & Zelle.Text
Do: Loop Until IE.busy = False
Do: Loop Until IE.document.ReadyState = "complete"
Set result = IE.document.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
If Not result Is Nothing Then Zelle.Offset(0, 1) = result.href
Next
End Sub
Seit einigen Wochen funktioniert der Code jetzt leider nicht mehr. Anscheinend hat Google den Code der Website umgestellt. Ich kenn mich leider nicht so gut aus um den Code anzupassen.
Kann dabei zufällig jemand helfen?