ich versuche gerade eine Checkbox auf einer Website anzusteuern und krieg es einfach nicht hin. Es geht um ein Fenster, dass im InternetExplorer schon geöffnet ist (anders ist es nicht lösbar).
Eine der Checkboxen, die ich markieren will:
input type="checkbox" name="optionValues[]" value="44"
Mein Code:
Private Sub cmd3_Click()
Dim start As Integer
Dim ende As Integer
Dim objShell As Object
Dim win As Object, IEDoc As Object
start = CInt(txtstart.Text)
ende = CInt(txtende.Text)
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If win.document.Title = "****" Then 'Test anpassen
AppActivate win.document.Title
Set IEDoc = win.document
With IEDoc.getElementsByName("optionValues[]")
Item(43).Checked = True
End With
End If
Next
Set objShell = Nothing
End Sub
Wenn ich das so ausführe, bekomme ich ständig einen Fehler "Sub oder Function nicht definiert". Was mache ich denn falsch?