Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Google Treffer je Zelle anzeigen lassen

Google Treffer je Zelle anzeigen lassen
dornkaat
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 ;-)
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Google Treffer je Zelle anzeigen lassen
28.04.2011 17:30:05
Oberschlumpf
Huhu
Ich hätte dann gern ganz schnell ne Bsp-Datei, weil - habe ich Bsp-Datei (wenn sie schon da wäre) - dann müsste ich die Datei nicht erst erstellen, und ein erster Lösungsansatz wäre schon ganz viel schneller fertig.
Ciao
Thorsten
AW: Google Treffer je Zelle anzeigen lassen
28.04.2011 17:42:27
dornkaat
OK, hier ist eine einfache Beispieldatei: https://www.herber.de/bbs/user/74592.xls
Schon mal vielen Dank im Voraus.
MfG
Sascha
Anzeige
Google Treffer anzeigen lassen
28.04.2011 18:15:24
ransi
HAllo
Mit Query kenn ich mich nicht aus.
Darum mal ein Ansatz der das Ding auf der Seite direkt ausliest:
Tabelle1

 ABC
1SuchbegriffGoogle-Treffer 
2AudiUngefähr 481.000.000 Ergebnisse (0,28 Sekunden)  
3BMWUngefähr 710.000.000 Ergebnisse (0,41 Sekunden)  
4MercedesUngefähr 577.000.000 Ergebnisse (0,11 Sekunden)  
5FiatUngefähr 320.000.000 Ergebnisse (0,06 Sekunden)  
6SkodaUngefähr 197.000.000 Ergebnisse (0,08 Sekunden)  
7VolkswagenUngefähr 350.000.000 Ergebnisse (0,06 Sekunden)  
8SuzukiUngefähr 387.000.000 Ergebnisse (0,11 Sekunden)  
9ChryslerUngefähr 223.000.000 Ergebnisse (0,09 Sekunden)  
10FerrariUngefähr 291.000.000 Ergebnisse (0,23 Sekunden)  
11PorscheUngefähr 251.000.000 Ergebnisse (0,07 Sekunden)  
12HyundaiUngefähr 323.000.000 Ergebnisse (0,14 Sekunden)  
13LadaUngefähr 88.700.000 Ergebnisse (0,12 Sekunden)  
14DaciaUngefä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
Anzeige
wenn ich auch nicht...
28.04.2011 19:39:19
Oberschlumpf
...der Fragende bin, ...
Hallo
Klasse Lösung!
Und ne Frage.
Woher weißt du, dass "resultStats" das richtige Feld ist?
Wo kann man mehr über die "IE-Programmiersprache" lernen?
Ciao
Thorsten
AW: wenn ich auch nicht...
29.04.2011 07:35:41
MichaV
Moin,
hier mal was zum Reinschnuppern:
http://www.activevb.de/tutorials/tut_browsertags/browsertags.html
Das das Feld so heisst kriegt man raus inddem man den Quellcode der Webseite aufmerksam liest. Wenn Google das Feld allerdings mal umbenennt muss der Code angepasst werden.
Gruss- Micha
Anzeige
AW: wenn ich auch nicht...
29.04.2011 08:08:15
oberschlumpf
Hi Micha
Cool - Danke für den Link.
Ciao
Thorsten
AW: wenn ich auch nicht...
29.04.2011 08:45:09
MichaV
Hei,
bitte, gerne.
Du musst den Quellcode natürlich nich komplett lesen. Da helfen die Entwickler- Funktionen in den neuen Browsern. Mit dem Chrome- Browser musst Du z.B.nur die Zeile mit den Suchergebnissen markieren, rechte Maustaste und "Element inspizieren", und schon zeigt Dir Chrome die entsprechende Stelle im Quellcode.
Gruss- Micha
Anzeige
AW: Google Treffer anzeigen lassen
28.04.2011 23:42:32
dornkaat
Super - vielen Dank für die schnelle Hilfe!
MfG
Dornkaat
;
Anzeige
Anzeige

Infobox / Tutorial

Google Treffer je Zelle anzeigen lassen


Schritt-für-Schritt-Anleitung

Um die Anzahl der Google Treffer für Begriffe in einer Excel-Tabelle anzuzeigen, kannst Du ein Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und erstelle eine neue Arbeitsmappe.

  2. Gib Deine Suchbegriffe in Spalte A ein, beginnend von Zelle A2.

  3. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  4. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeinDateiname)" -> Einfügen -> Modul.

  5. Kopiere den folgenden Code in das Modul:

    Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
    
    Public Sub GoogleTrefferAnzeigen()
        Dim Zelle As Range
        Dim objIE As Object
        Dim Ding
    
        Set objIE = CreateObject("InternetExplorer.Application")
    
        With objIE
            .Visible = False
            For Each Zelle In Range("A2:A14")
                .navigate2 "http://www.google.de/search?q=" & Zelle.Text
                Do While .Busy: DoEvents: Loop
                Sleep 2000
                For Each Ding In .document.all
                    If Ding.ID = "resultStats" Then
                        Zelle.Offset(0, 1) = Ding.innerText
                    End If
                Next Ding
            Next Zelle
            .Quit
        End With
        Set objIE = Nothing
    End Sub
  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Führe das Makro aus: Drücke ALT + F8, wähle GoogleTrefferAnzeigen aus und klicke auf "Ausführen". Die Anzahl der Google Treffer wird in Spalte B neben den jeweiligen Begriffen angezeigt.


Häufige Fehler und Lösungen

  • Makro funktioniert nicht: Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind. Gehe zu Datei -> Optionen -> Trust Center -> Einstellungen für das Trust Center -> Makroeinstellungen und aktiviere die entsprechenden Optionen.

  • Wert "0" wird zurückgegeben: Vergewissere Dich, dass die ID "resultStats" in der aktuellen Google-Suchseite vorhanden ist. Google kann seine HTML-Struktur ändern, was bedeutet, dass der Code möglicherweise angepasst werden muss.


Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du die Google Suche manuell durchführen und die Ergebnisse in Excel eintragen. Eine andere Möglichkeit ist die Verwendung von Webabfragen in Excel, um Daten direkt aus dem Internet zu importieren, jedoch ist die Anzahl der Suchergebnisse nicht immer einfach zu extrahieren.


Praktische Beispiele

Hier ist ein Beispiel, wie die Excel-Tabelle aussehen könnte:

Suchbegriff Google Treffer
Audi Ungefähr 481.000.000 Ergebnisse
BMW Ungefähr 710.000.000 Ergebnisse
Mercedes Ungefähr 577.000.000 Ergebnisse

Du kannst die Begriffe in Spalte A anpassen und das Makro erneut ausführen, um die neuesten Google Ergebnisse anzuzeigen.


Tipps für Profis

  • Optimierung des Codes: Wenn Du häufig die Anzahl der Google Treffer abfragen möchtest, könntest Du den Code so optimieren, dass er mehrere Suchbegriffe gleichzeitig abfragt, um die Wartezeiten zu minimieren.

  • Verwendung von Google APIs: Eine weitere Möglichkeit, die Google Anzahl der Treffer anzuzeigen, ist die Verwendung der Google Custom Search API. Diese bietet eine strukturierte und zuverlässige Methode, um Suchergebnisse zu erhalten.


FAQ: Häufige Fragen

1. Kann ich das Makro in einer älteren Excel-Version verwenden?
Ja, das Makro sollte in den meisten Versionen von Excel funktionieren, die VBA unterstützen.

2. Wie kann ich die Anzahl der Google Treffer für andere Suchmaschinen anzeigen?
Du müsstest den Code anpassen, um die entsprechende URL der gewünschten Suchmaschine zu verwenden und sicherstellen, dass die richtige ID für die Trefferanzeige genutzt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige