Das wären die wichtigsten Bestandteile, ja. Allerdings habe ich leider keinen bisherigen Code. Ich hatte mich an folgender Anleitung orientiert, bin aber nicht sehr weit gekommen. http://www.exceltrainingvideos.com/complete-automation-of-getting-web-page-data-into-excel-worksheet-using-vba/

Da wird folgender Code verwendet:

Sub test()
Dim eRow As Long
Dim ele As Object
Set sht = Sheets(“Sheet1”)
RowCount = 1
sht.Range(“A” & RowCount) = “Title”
sht.Range(“B” & RowCount) = “Company”
sht.Range(“C” & RowCount) = “Location”
sht.Range(“D” & RowCount) = “Description”
eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Set objIE = CreateObject(“InternetExplorer.Application”)
myjobtype = InputBox(“Enter type of job eg. sales, administration”)
myzip = InputBox(“Enter zipcode of area where you wish to work”)
With objIE
.Visible = True
.navigate “http://www.jobs.com/”
Do While .Busy Or _
.readyState <> 4
DoEvents
Loop
Set what = .document.getElementsByName(“q”)
what.Item(0).Value = myjobtype
Set zipcode = .document.getElementsByName(“where”)
zipcode.Item(0).Value = myzip
.document.getElementById(“JobsButton”).Click
Do While .Busy Or _
.readyState <> 4
DoEvents
Loop
For Each ele In .document.all
Select Case ele.classname
Case “Result”
RowCount = RowCount + 1
Case “Title”
sht.Range(“A” & RowCount) = ele.innertext
Case “Company”
sht.Range(“B” & RowCount) = ele.innertext
Case “Location”
sht.Range(“C” & RowCount) = ele.innertext
Case “Description”
sht.Range(“D” & RowCount) = ele.innertext
End Select
Next ele
End With
Macro1
Set objIE = Nothing
End Sub

Zur Not würde mir der Code für Auswahl des Dropdown-Menus und Klicken des Buttons reichen. Den Rest würde ich dann hoffentlich irgendwie zusammengebastelt bekommen. Ich kann ja nicht erwarten, dass hier andere Leute nur für mich ganze "Programme" schreiben ;)