Sub NavigateMultiplePages()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
For rep = 7 To 15
url_to_retrieve = Tabelle1.Range("E" & rep)
IE.Navigate (url_to_retrieve)
Do
DoEvents
Loop Until IE.ReadyState = 4
Next rep
MsgBox "Done"
End Sub
Sub LookforString()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
For rep = 7 To 15
Tabelle1.Range("K" & rep) = ""
DoEvents
url_to_retrieve = Tabelle1.Range("E" & rep)
IE.Navigate (url_to_retrieve)
Do
DoEvents
Loop Until IE.ReadyState = 4
Set AllHyperLinks = IE.Document.GetElementsByTagName("A")
For Each hyper_link In AllHyperLinks
hyper_link_text = LCase(hyper_link.innertext)
search_string_to_find = LCase(Tabelle1.Range("I" & rep))
If InStr(hyper_link_text, search_string_to_find) > 0 Then
Tabelle1.Range("K" & rep) = hyper_link
IE.Navigate (hyper_link), CLng(2048)
Exit For
End If
Next
Next rep
End Sub