Soeren49 skrev: Skulle du have interesse for endnu en opgave, der også har med søgemaskineoptimering at gøre har jeg endnu et projekt, der godt kunne trænge til en revidering. Hvis du kunne have lyst til at stifte mere bekendtskab med SEO, kan jeg godt hjælpe dig med at finde mere information om dette.

Jamen, du er da velkommen til at prøve, at ligge opgaven herud - det kunne jo osse tænkes, at der både var andre, der ville byde ind med løsningsforslag, eller andre der kunne bruge selve løsningen

EXCELGAARD skrev: Så har jeg lagt en ny version af programmet ud. Ud over, at 'Bing' og 'Yahoo' nu også er understøttet, så har jeg helt omskrevet koden til at finde placeringerne - det viste sig, at den gamle kode under visse omstændigheder kunne give forkerte placeringer (en fejl som det oprindelig regneark rent faktisk osse havde...) Den nye kode er ikke kun fejlfri (?), men også langt mere robust og sikker, samt fleksibel og let at udvide. Med mindre der kommer alvorlige fejl eller mangler, eller forslag til udvidelser/forbebedringer, så bliver dette den udgave, der kommer med på næste opdatering af mit website (den 14.09.2014). Linket er det samme, som hidtil: www.excelgaard.dk/Bib/SERP/ www.excelgaard.dk/Bib/SERP/

Hej Excelgaard
Tak for dit arbejde med dette projekt. Jeg er glad for at du har fundet en fejl i det oprindelig regneark. Så nu kan jeg være sikre på at de resultater, der vises også passer.
Jeg vil her i aften afprøve det i excel 2013.

EXCELGAARD skrev: Velbekomme - men, vent nu og se, om du kan få det til at virke

Hej Excelgaard
Umiddelbart ser det ud til at virke i excel 2013. Men vi skrev om nogle fejl tidligere i tråden, og at du evt. kunne hjælpe med "Object" fejl.

Den er i WUF_SERP

' (C) Dan Elgaard   (www.EXCELGAARD.dk)
' Visit website for full explanation and documentation


' Module level constants
  Const BackColor_Disabled As Long = 13160660   ' RGB(212, 208, 200)
  Const BackColor_Enabled  As Long = 12648384
  Const BackColor_Locked   As Long = 16777152

Option Explicit
Private Sub UserForm_Initialize()

' * ' Initialize
      On Error Resume Next

      SWS_SERP_Result.Select
      Application.EnableEvents = False
      If ActiveSheet.Name = SWS_SERP_Result.Name Then ActiveWindow.DisplayHeadings = False


' * ' Setup UserForm
      Call UserForm_Appearence_Initial

Her er et skærmprint af det.
uploads/1212/billede.docx

Så er det officielt lagt ud på Internettet:

www.excelgaard.dk/Bib/SERP/ www.excelgaard.dk/Bib/SERP/

Projektet er åben og ubeskyttet, så man kan se, hvad der sker 'under kølerhjelmen', og projektet har sin egen GUI, med eget bånd (Ribbon), Dialogboks (UserForm), o.s.v..

Enjoy :-)