Hallo zusammen 
Ich hab keine Ahnung, ob ich hier richtig bin… ich probiers einfach mal:
Ich möchte mehrere Webseiten nach den gleichen Suchbegriffen durchsuchen und würde das Ganze gerne abkürzen. Toll wäre es wenn ich mit einem Klick auf eine Tabellenzelle (Webadresse) eine Googlesuche mit hinterlegten Suchkriterien starten könnte.
Hat jemand eine Idee?
Vielen Dank!
VG Roland
Ich möchte mehrere Webseiten nach den gleichen Suchbegriffen
durchsuchen und würde das Ganze gerne abkürzen. Toll wäre es
wenn ich mit einem Klick auf eine Tabellenzelle (Webadresse)
eine Googlesuche mit hinterlegten Suchkriterien starten
könnte.
Hallo Roland,
du willst in A1, B1, C1 Wörter eingeben.durch Klick auf A2 soll dann das Googlefenster mit den Suchergebnissen erscheinen?
Gruß
Reinhard
Hallo Reinhard,
die Webadresse steht in Spalte A, die 5 Kriterien nach denen die Adresse durchsucht werden soll stehen in den Spalten B bis F. Ziel ist es, mit einem Klick direkt aus Excel zu den Googel-Suchergebnisse zu gelangen.
Eine einfache Googelsuche läßt sich direkt aus Excel starten. Das durchsuchen von Webseiten funktioniert so leider nicht.
Danke!
Gruß
Roland
die Webadresse steht in Spalte A, die 5 Kriterien nach denen
die Adresse durchsucht werden soll stehen in den Spalten B bis
F. Ziel ist es, mit einem Klick direkt aus Excel zu den
Googel-Suchergebnisse zu gelangen.Eine einfache Googelsuche läßt sich direkt aus Excel starten.
Das durchsuchen von Webseiten funktioniert so leider nicht.
Hallo Roland,
so ganz hab ich nicht kapiert was du willst, schreib mal in A1 rein:
Huhu
und starte das Makro, es werden 7 Mio Treffer gefunden, was soll mit denen geschehen? Alle auflisten, ausdrucken, in eigenen Fenstern aufrufen?
Sub guggeln()
Dim appIE As Object, docIE As Object, Inhalt As String, N As Long, zei As Long
Dim Zeile() As String
Const Urla As String = "http://www.google.de/search?hl=de&source=hp&q="
Const Urlb As String = "&meta=&aq=f&aqi=g4g-s1g5&aql=&oq=&gs\_rfai="
Set appIE = CreateObject("internetexplorer.application")
If appIE Is Nothing Then Exit Sub
appIE.Visible = True
appIE.navigate Urla & Range("A1") & Urlb
Do
Loop Until appIE.Busy = False
Do
Loop Until appIE.Busy = False
End Sub
Gruß
Reinhard