Google Treffer je Zelle anzeigen lassen

Hallo zusammen
Ich habe eine Excel-Tabelle, bei der in Spalte A diverse Begriffe untereinander stehen. Diese sollen nun in Google abgefragt werden. Das Ergebnis "Anzahl Treffer" soll dann in Spalte B hinter den jeweiligen Begriff geschrieben werden.
Die SuFu und Google brachten einen guten Hinweis (http://www.spotlight-wissen.de/archiv/message/1696415.html), allerdings liefert das dort gezeigte Makro bei mir hinter jedem Begriff den Wert "0". Möglicherweise hat sich seit 2008 bei Google etwas getan, so dass es nicht mehr funktioniert.
Wer kann mir hier weiterhelfen - ich bräuchte die Lösung leider sehr schnell, da ich gerade die ganzen Begriffe manuell eingebe ...
Vielen Dank im Voraus.
MfG
dornkaat ;-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

HAllo
Mit Query kenn ich mich nicht aus.
Darum mal ein Ansatz der das Ding auf der Seite direkt ausliest:
Tabelle1

	A	B	C
1	Suchbegriff	Google-Treffer
2	Audi	Ungefähr 481.000.000 Ergebnisse (0,28 Sekunden)
3	BMW	Ungefähr 710.000.000 Ergebnisse (0,41 Sekunden)
4	Mercedes	Ungefähr 577.000.000 Ergebnisse (0,11 Sekunden)
5	Fiat	Ungefähr 320.000.000 Ergebnisse (0,06 Sekunden)
6	Skoda	Ungefähr 197.000.000 Ergebnisse (0,08 Sekunden)
7	Volkswagen	Ungefähr 350.000.000 Ergebnisse (0,06 Sekunden)
8	Suzuki	Ungefähr 387.000.000 Ergebnisse (0,11 Sekunden)
9	Chrysler	Ungefähr 223.000.000 Ergebnisse (0,09 Sekunden)
10	Ferrari	Ungefähr 291.000.000 Ergebnisse (0,23 Sekunden)
11	Porsche	Ungefähr 251.000.000 Ergebnisse (0,07 Sekunden)
12	Hyundai	Ungefähr 323.000.000 Ergebnisse (0,14 Sekunden)
13	Lada	Ungefähr 88.700.000 Ergebnisse (0,12 Sekunden)
14	Dacia	Ungefähr 83.300.000 Ergebnisse (0,06 Sekunden)
15

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Teste mal:

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 "http://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

ransi

Beliebteste Forumthreads (12 Monate)

Google Treffer je Zelle anzeigen lassen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread