Sub StepStoneJobsAuslesen()
Dim browser As Object
Dim url As String
Dim urlSearchTerm As String
Dim nodeJobOfferContainer As Object
Dim nodeAllJobOffers As Object
Dim nodeOneJobOffer As Object
Dim currentRow As Long
Dim jobOfferTitle As String
Dim jobOfferUrl As String
Dim nextPossible As Boolean
currentRow = 2
urlSearchTerm = "abb+ag"
url = baseUrl & urlSearchTerm
Set browser = CreateObject("internetexplorer.application")
browser.Visible = True
browser.navigate url
Do Until browser.readyState = 4: DoEvents: Loop
Set nodeJobOfferContainer = browser.document.getElementsByClassName("gvBCse")(0)
Set nodeAllJobOffers = nodeJobOfferContainer.getElementsByClassName("fKQtCB")
For Each nodeOneJobOffer In nodeAllJobOffers
jobOfferTitle = Trim(nodeOneJobOffer.getElementsByClassName("iHAUBO")(0).innertext)
ActiveSheet.Cells(currentRow, 1).Value = jobOfferTitle
jobOfferUrl = nodeOneJobOffer.getElementsByClassName("gzNLsV")(0).href
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(currentRow, 2), Address:=jobOfferUrl, TextToDisplay:=jobOfferUrl
currentRow = currentRow + 1
Next nodeOneJobOffer
End Sub