Option Explicit
Sub Ausleitung()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
Dim HTMLaTags As MSHTML.IHTMLElementCollection
Dim HTMLaTag As MSHTML.IHTMLElement
IE.Visible = True
IE.Navigate "stepstone.de"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.Document
Set HTMLInput = HTMLDoc.getElementById("ke")
HTMLInput.Value = "ABB AG"
Set HTMLButtons = HTMLDoc.getElementsByTagName("button")
For Each HTMLButton In HTMLButtons
If HTMLButton.innerText = "Jobs finden" Then
HTMLButton.Click
Exit For
End If
Next HTMLButton
Dim x As Long
x = 0
For
x = x + 1
ActiveSheet.Cells(x, 1) = ???
ActiveSheet.Cells(x, 2) = ???
Next
End Sub