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
Rot VBA Google Suche
 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
10.08.2016 18:47:35 Gast34385
NotSolved
11.08.2016 17:25:02 Gast61197
NotSolved

Ansicht des Beitrags:
Von:
Gast71213		 Datum:
09.08.2016 16:04:17		 Views:
834		 Rating:
     
Antwort:
  Ja
Thema:
VBA Google Suche
Suchergebnis erscheint im IE
Code komplett übernommen und über ALT+F11 eingetragen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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 = 2 To ende
        .document.all.q.Value = ActiveSheet.Cells(zeile, 1)
        .document.all.btnG.Click
        While .Busy Or .readyState <> 4
            DoEvents
        Wend
        'Seite geladen
        'trägt das Ergebnis in Spalte C
        For Each werte In .getElementsByTagName("span")
            If wert.className = "st" Then
                ActiveSheet.Cells(zeile, 3) = werte.innertext
                Exit For
            End If
        Next
    Next
End With
End Sub

https://www.google.de/?gfe_rd=cr&ei=PuKpV8XdO-nj8wf3wrXQDg&gws_rd=ssl

https://www.google.de/?gfe_rd=cr&ei=YuKpV5XRGe7j8wflqLZg&gws_rd=ssl#q=Webtronix+Media+GmbH

 

Sorry ich kenne mich kaum aus

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
Rot VBA Google Suche
 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
10.08.2016 18:47:35 Gast34385
NotSolved
11.08.2016 17:25:02 Gast61197
NotSolved