Option Explicit
Sub StelleninfosAuslesen()
Dim browser As Object
Dim nodeJobOffer As Object
Dim jobTasks As String
Dim jobProfil As String
Dim HyperlinkRow As Long
Dim Hyperlink As String
HyperlinkRow = 2
Do
If ActiveSheet.Cells(HyperlinkRow, 2).Hyperlinks.Count = 1 Then
Hyperlink = ActiveSheet.Cells(HyperlinkRow, 2).Hyperlinks(1).Address
Else
HyperlinkRow = HyperlinkRow + 1
End If
Set browser = CreateObject("internetexplorer.application")
browser.Visible = False
browser.navigate Hyperlink
Do Until browser.readyState = 4: DoEvents: Loop
jobTasks = Trim(browser.document.getElementsByClassName("at-section-text-description-content sc-hmzhuo")(0).innertext)
jobProfil = Trim(browser.document.getElementsByClassName("at-section-text-profile-content sc-hmzhuo")(0).innertext)
ActiveSheet.Cells(HyperlinkRow, 8).Value = jobTasks
ActiveSheet.Cells(HyperlinkRow, 9).Value = jobProfil
browser.Quit
Set browser = Nothing
jobTasks = ""
jobProfil = ""
HyperlinkRow = HyperlinkRow + 1
Loop Until IsEmpty(ActiveSheet.Cells(HyperlinkRow, 2))
End Sub