Versuchen, eine Suche von Visual Basic zu wiederholen

Question

Ich versuche, eine Suche nach ein paar Datenzeilen in Excel mit Visual Basic durchzuführen.

Im Grunde suchen Sie eine Website für jedes Produkt ... ist nicht viel egal, ob es mehrere Fenster oder Tabs oder was auch immer öffnet ... noch nichts mit den Webseiten getan werden muss. Hier ist mein aktueller Versuch:

Private Sub CommandButton1_Click() 

    Dim index As Integer 
    index = 1 
    Dim searchme As String 


    While Worksheets("Sheet1").Cells(index, 1).Value <> Null   
     searchme = worsheets("Sheet1").Cells(index, 1).Value   
     searchmelink = "https://www.grainger.com/search?" & _ 
        "searchBar=true&searchQuery=" & searchme 

     ThisWorkbook.FollowHyperlink Address:=searchmelink, NewWindow:=True 

     index = index + 1   
    End While 

End Sub 

Ich erhalte einen Fehler bei End While aus irgendeinem Grunde.

"Compile error:

Expected: If or Select or Sub or Function or Property or Type or With or Enum or end of statement"

hilf mir bitte, wahrscheinlich sehr einfach, aber ich bin neu hier.

Answer 1

Während wird wie folgt umgesetzt:

While {test} 
    {actions} 
Wend 

oder typischer:

Do While {test} 
    {actions} 
Loop