Thema Datum  Von Nutzer Rating
Antwort
09.08.2016 12:43:36 JM
*****
NotSolved
09.08.2016 15:24:18 Gast79454
NotSolved
09.08.2016 15:48:08 Gast52704
NotSolved
09.08.2016 15:54:44 Gast95476
NotSolved
09.08.2016 16:04:17 Gast71213
*****
NotSolved
09.08.2016 16:35:45 Gast20697
NotSolved
09.08.2016 17:44:14 Gast26899
*****
NotSolved
10.08.2016 18:00:25 Gast14740
NotSolved
10.08.2016 18:35:01 Gast4732
NotSolved
Blau VBA Google Suche
 10.08.2016 18:47:35 Gast34385
NotSolved
11.08.2016 17:25:02 Gast61197
NotSolved

Ansicht des Beitrags:
Von:
Gast34385		 Datum:
10.08.2016 18:47:35		 Views:
788		 Rating:
     
Antwort:
  Ja
Thema:
VBA Google Suche

Da hat sich beim Kopieren der Index verschoben. :-) Probiere den Code mal so. Ist jetzt nur für ein festes Element und nicht für alle - nur zum Testen und langsam rantasten. VG

 

Sub adresse()
 
With CreateObject("InternetExplorer.application")
    .Visible = True
    .navigate ("http://www.google.com/")
    While .Busy Or .readyState <> 4
        DoEvents
    Wend
    'Spalte mit deinen Werte, zählt die Anzahl in Spalte A
    ende = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    For zeile = 1 To 1
        .document.all.q.Value = "Webtronix Media GmbH"
        .document.all.btnG.Click
        While .Busy Or .readyState <> 4
            DoEvents
        Wend
        'Seite geladen
        'trägt das Ergebnis in Spalte C
        ActiveSheet.Cells(zeile, 3) = Split(.document.getElementsByclassName("_tA")(0).innertext, ",")(0)
    Next
End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.08.2016 12:43:36 JM
*****
NotSolved
09.08.2016 15:24:18 Gast79454
NotSolved
09.08.2016 15:48:08 Gast52704
NotSolved
09.08.2016 15:54:44 Gast95476
NotSolved
09.08.2016 16:04:17 Gast71213
*****
NotSolved
09.08.2016 16:35:45 Gast20697
NotSolved
09.08.2016 17:44:14 Gast26899
*****
NotSolved
10.08.2016 18:00:25 Gast14740
NotSolved
10.08.2016 18:35:01 Gast4732
NotSolved
Blau VBA Google Suche
 10.08.2016 18:47:35 Gast34385
NotSolved
11.08.2016 17:25:02 Gast61197
NotSolved