Jeg har nedenstående VBA kode, der generer søgeord fra 3 kolonner og placerer disse søgeord i en fjerde kolonne. Problemet er at jeg gerne selv vil bestemme søgeords sammensætningen. Er der nogen, der kan hjælpe med at ændre i nedenstående kode så det kommer til at virke efter hensigten?
 
'' Change this if you want rankings for a region-specific google website, like www.google.co.uk
'' Or, change it to a specific data center IP, like the Caffeine test server: 209.85.225.103
Const GOOGLE_WEBSERVER = "www.google.dk"

'' Builds the URL of a SERP for a term, starting at a certain result
Function BuildSERPURL(ByVal term As String, ByVal start As Integer) As String
    BuildSERPURL = "http://" & GOOGLE_WEBSERVER & "/search?start=" & start & "&q=" & term
End Function

'' Fetches a page from the internet
Function FetchPage(ByVal url As String) As String
    Dim req As WinHttp.WinHttpRequest
    Set req = New WinHttp.WinHttpRequest
    req.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
    req.Open "GET", url
    req.Send
    FetchPage = req.ResponseText
End Function

'' Locates my-URL in a SERP.
'' Returns the position of my-URL in <count>, and returns true
'' If not found, returns false, and <count> is the amount of URLs scanned in the SERP
Function FindRank(ByVal page As String, ByVal myurl As String, ByRef count As Integer) As Boolean
    Dim pos As Long, posEnd As Long
    Dim url As String
    pos = 1
    count = 0
    FindRank = False
    Const sig = "<h3 class=""r""><a href="""
    While (True)
        '' Find next link
        pos = InStr(pos, page, sig)
        If pos < 1 Then Exit Function
        
        pos = pos + Len(sig)

        '' Find end of link
        posEnd = InStr(pos, page, """")
        If posEnd < 1 Then Exit Function
        
        '' Extract the URL from the link
        url = Mid(page, pos, posEnd - pos)
        count = count + 1
        
        '' Is it the URL we're looking for?
        If InStr(url, myurl) > 0 Then
            FindRank = True
            Exit Function
        End If
    Wend
End Function

'' Retrieves the current ranking of my-URL in a term's SERP, possibly going over more than one page
'' Returns 0 if not found
Function GetCurrentRanking(ByVal term As String, ByVal myurl As String, ByVal maxpages As Integer) As Integer
    Dim pagenum As Integer, start As Integer, count As Integer, rank As Integer
    pagenum = 0
    start = 0
    rank = 0
    count = 0
    
    While pagenum < maxpages
        pagenum = pagenum + 1
        url = BuildSERPURL(term, start)
        page = FetchPage(url)
        If FindRank(page, myurl, count) Then
            GetCurrentRanking = start + count
            Exit Function
        End If
        
        start = start + count
    Wend
    
    GetCurrentRanking = 0
End Function

'' Adds another row to the sheet with the current rankings
Sub AddCurrentRankingsRow()
    Dim sheet As Excel.Worksheet
    Set sheet = Application.ActiveSheet
    
    Dim myurl As String
    myurl = sheet.UsedRange.Cells(2, 2).Text

    '' Locate the data and where to add new data
    Dim newRow As Integer, termRow As Integer, dateCol As Integer, rightCol As Integer
    termRow = sheet.UsedRange.Rows.Row + 3
    newRow = sheet.UsedRange.Rows(sheet.UsedRange.Rows.count).Row + 1
    dateCol = sheet.UsedRange.Columns(1).Column
    rightCol = sheet.UsedRange.Columns(sheet.UsedRange.Columns.count).Column
    
    sheet.Cells(newRow, dateCol).Formula = Date
    sheet.Cells(newRow, dateCol + 1).Formula = myurl
    dateCol = dateCol + 1
    
    For col = dateCol + 1 To rightCol
        Dim term As String, rank As String
        term = sheet.UsedRange.Cells(4, col).Text
        rank = GetCurrentRanking(term, myurl, 3)
        If rank = 0 Then
            rank = ""
        End If
        sheet.Cells(newRow, col).Formula = rank
    Next
    
    Dim newRange As Range
    Set newRange = sheet.Range(sheet.Cells(termRow, dateCol).Address & ":" & sheet.Cells(newRow, rightCol).Address)
    sheet.ChartObjects(1).Chart.SetSourceData newRange
End Sub

Hej Her er regnearket.
uploads/1212/Kopi_af_Rankings-flere-domaener.xlsm

mvh.
Søren

Det jeg mener, er at de søgeord der skal stå i kolonne d er nogle som jeg manuelt har indtastet.  F. eks.
Jeg vil selv bestemme hvilke, der skal være longtail søgning og hvilket der kun skal være et søgeord.
 

hjemmealarm

alarmer til hjemmet

tyverialarm

tyverialarmer

tyverisikring

tyverialarm uden abonnement

tyverialarm med abonnement

Hej

De 3 første koloner skal fjernes fordi at det resultat, der vises i kolone 4 bliver alt for urealistisk og ikke mindst arket med resultatet bliver stort og uoverskueligt. Når jeg kommer op på mere end 100 søgeord forsvinder overblikket. Der for vil jeg gerne selv kunne bestemme indholdet i kolone 4. Det er ganske almindeligt at ved søgeoptimering af en webshop kommer man let op på flere hunderede søgeord.

Jeg har arbejdet endel med søgeoptimering de sidste år og fået noget erfarring med forskellige søge tools.

Dette regneark/tools er måske udmærket, men jeg syntes at det det opfylder det jeg har behovfor.

EXCELGAARD skrev: Undskyld, at jeg bli'r ved med at spørge dumt, men jeg er overhovedet ikke inde i SERP, og, hvad det er du prøver at opnå - men, jeg synes blot, at opgaven virker så spændende, at dette her vil jeg lige prøve, at lave Dit svar gi'r mig blot anledning til, at gentage mit spørgsmål: Er det ikke allerede det, du bestemmer ved at indtaste søgeord i de tre første kolonner??? Eller er det fordi, du helt vil have systemet med de tre kolonner helt elimineret, og blot selv manuelt indtaster alle dine ønskede kombinationer i kolonne 4?

Jeg er glad for at du vil se på det, det betyder meget hvis det kan lykkes at få elimineret de tre kolonner.

EXCELGAARD skrev: Hej Søren, Undskyld, at jeg lige har været fraværende de sidste dage, men der kom lige noget andet op... Men, jeg kigger på det i dag... Bare lige for at være helt skarp: Hvis jeg laver følgende forespørgsel: https://www.google.dk/search?start=1&q=houseguard Hvad er det så præcist for et tal, du ønsker, på den side, der kommer op? Hvad dækker parameteren 'start' over? (Ja, du kan godt høre, at mine erfaringer med SERP ikke er de store )

Hej Excelgaard

Tak for din interesse for at løse problemet. Jeg skal prøve at forklare mig noget mere.

Her er forklaringen bag tallet.

Når man søger på google får man på hver side 10 søgeresultater, du vil somme tider se at der i toppen af siden er nogle resultater, hvor der står annonce de skal ikke tælles med. Der er ikke noget nummer ud for placeringen af søgningerne. Man skal selv tælle placeringerne. I mit tilfælde med Excel er det så Excel der automatisk gør det og viser tallet i arket med "Ranking analyse".

Det vil sige går man over til bunden af side 2 har man så 20 resultater og så videre.
Det er resultaterne fra side 1 til og med side 3, altså de 30 først placeringer jeg er interesseret i. Kun de placeringer,  fordi at der er sjældent nogen som blader om på side 4 når man søger på google.
 
På en søgning med ordet tyverialarmer har jeg aktuelt en placering som nummer  25. Det er det tal jeg er skal bruge og har interesse for at følge dagligt. Fordi at det kan ændre sig fra dag til dag, jeg er selvfølgelig mest interesseret i de første 10 placeringer. Da de jo er på side 1.
Du kan se det her https://www.google.dk/search?start=1&q=houseguard#q=tyverialarmer&start=20

Parameteren "start" må dække over at det er det første resultat der kommer frem i søgningerne.
Jeg skal lige sige at dette regne ark har jeg ikke selv lavet. Derfor kan jeg ikke komme det nærmere, hvad denne parameter betyder.

Jeg håber at ovenstående har givet dig lidt mere indblik i hvad SERP er.

Mvh. Søren

EXCELGAARD skrev: OK, så det er simpelthen blot et spørgsmål om at tælle, på, hvilken placering, som det enkele website står, alt efter, hvilke(t) søgeord, der er anvendt? Det burde være til at finde ud af Men, jeg tror lige, at jeg vil ofre lidt tid på at skrive min egen kode til formålet - hvis jeg ikke bliver forstyrret for meget i morgen, burde jeg kunne lave et udkast allerede til i morgen...

Hej Excelgaard

Super og tak for det, jeg ser frem til resultatet.

Mvh. Søren

Så fik jeg endeligt lidt tid til at sidde mig ned og lege med det

Jeg har lagt det foreløbige resultat ud her:
www.excelgaard.dk/Bib/SERP/ www.excelgaard.dk/Bib/SERP/

Det er endnu ikke helt færdig - bla. mangler jeg at lave koden for Bing og Yahoo - men, inden jeg forsætter vil jeg lige høre om du (og, andre?) har input, forslag, fejlrettelser m.v...

Metoden, der benyttes er en lille smule anderledes end, det regneark, du selv uploadede, da mit regneark ikke gør forskel på om man angiver hjemmesiderne med 'www' foran ('www.domain.tld' eller blot 'domain.tld').
Jeg er endnu ikke helt sikker på, om det er smart, eller om det er en fordel, at skelne mellem de to?

Nåh, ja, og så er det endnu ikke helt 100% fejltestet endnu, men det kan du evt. hjælpe med

Ups
Programmet er lavet til Excel 2010 eller nyere - så har du en Excel 2007, så er det bare bad luck
(Ja, jeg tror, at det osse virker på XL2010, men det er lavet på en XL2013)

Faktisk er Excel 2007 den dårligeste version af Excel, der er lavet siden Excel4, simpelthen fordi der var alt for mange fejl og "børnesygdommme" i forbindelse med alle de nye ting, som Microsoft byggede ind i Excel dengang:
www.excelgaard.dk/Bib/FAQ/Excel2007/ www.excelgaard.dk/Bib/FAQ/Excel2007/

Og, så gør du det, jo, ikke bedre, at du kører med den absolut dårligste Windows, der nogensinde er lavet

Rent faktisk plejer jeg, at sige, at jeg ikke vil hjælpe folk, der kører med enten XL2007 eller Vista, da jeg simpelthen ikke gider slås med alle de problemer, som disse systemer altid giver...
www.excelgaard.dk/Bib/FAQ/Krav/ www.excelgaard.dk/Bib/FAQ/Krav/

Søgemaskineprogrammet virker perfekt her hos mig, og jeg har netop her til morgen lavet 'Bing' delen også, og selvom jeg får gæster i dag, så burde jeg også kunne nå, at lave 'Yahoo' delen senere på dagen...

Jeg har nu kørt søgningerne de sidste tre dage, for at have nogle 'historiske' data at køre med, og sammenligne på, og det spiller bare

Jeg kan ikke hjælpe dig med at få båndet frem, da det er skrevet specifikt til XL2010 eller nyere...

Men, jeg kan måske hjælpe dig med din 'Object' fejl?
Kan du fortælle præcist i hvilket linje du får fejlen, evt. uploade et skærmbillede med fejlen?

PS: Og, så må man ALDRIG installere 64-bit udgaven af Office:
www.excelgaard.dk/Bib/Excel/Bit/ www.excelgaard.dk/Bib/Excel/Bit/

Så, hvis du osse kører med 64-bit udgaven, er du endnu mere på s*******!

Så har jeg lige haft lejlighed til at teste det på en computer med Windows 8.1 og Excel 2010, og her virkede det også uden problemer - så jeg tror, at det er Excel 2007, der viser sit grimme ansigt igen

Nu er det testet på:

• Windows 7, med Engelsk Excel 2013
• Windows 8.1, med Dansk Excel 2010

Og, det virker i begge tilfælde...

Jeg har nu osse lavet 'Yahoo' delen, og vil nok ligge den nye version ud i løbet af et par dage, når jeg har prøvet at gennemteste det over nogle dage, hvor jeg opsamler historiske data...

Selvom, jeg ikke lige i dit tilfælde har hjulpet dig ret meget, vil jeg dog sige tak for opgaven, som har lært mig lidt om søgemaskineoptimering også