Makro für Anzahl Suchergebnisse in Google
05.10.2012 17:11:25
Phil
Ich habe eine Spalte A bei der verschiedene Stichwörter drin stehen. In einer Spalte B soll dann per Makro angezeigt werden, wie viele Treffer Google dazu findet.
Ich habe dank diesem Forum einen passenden VBA-Code gefunden:
Beitrag von 2011: https://www.herber.de/forum/archiv/1212to1216/t1212237.htm
Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Public Sub test()
Dim Zelle As Range
Dim objIE As Object
Dim Ding
Set objIE = CreateObject("Internetexplorer.Application")
With objIE
' .Visible = True
For Each Zelle In Range("A2:A14")
.navigate2 "https://www.google.de/#hl=de&source=hp&biw=1920&bih=892&q=" & Zelle.Text & "&aq=f& _
aqi=g10&aql=&oq=&bav=on.2,or.r_gc.r_pw.&fp=e33dc48bd1e72c23"
Do While .busy
Do While .busy
DoEvents
Loop
Loop
Sleep 2000
For Each Ding In objIE.document.all
If Ding.ID = "resultStats" Then
Zelle.Offset(0, 1) = Ding.innertext
End If
Next
Next
.Quit
End With
Set objIE = Nothing
End Sub
Ich weiss nicht, ob das an meinem PC liegt oder sonst was. Ich habe den Wert bei "Sleep" im Code auch schon erhöht, damit zwischen den einzelnen Befehlen eine längere Pause gemacht wird. Hat auch nicht funktioniert.
Ich habe leider sogut, wie keine VBA-Kenntnisse und nutze es auch zum ersten mal.
Weiss jemand woran es liegt und ob ich den Code irgendwie aufmotzen kann, dass der auch längere Wörter schluckt (bis 25 Zeichen)? :)
Danke schonmal im Voraus!