in einer Website hab ich nur mit dieser Codezeile ein Textfeld gefunden, einen Wert kann ich damit nicht übergeben.
Was mach ich daran falsch?
Sub test
Dim oIE As Object, oSW As Object
Dim Textbox As Object, k As Integer
Dim Standort As String
Dim dropdown As Object
Set oIE = CreateObject("InternetExplorer.Application")
Set oSW = CreateObject("Shell.Application")
For Each oIE In oSW.Windows
If oIE.LocationURL = "..." Then
On Error Resume Next
Set dropdown = oIE.Document.All.Tags("dlcFolderSearchText")
If Not dropdown Is Nothing Then
Debug.Print "Textbox über ALL-TAGS erreicht"
Else
Debug.Print "Textbox NICHT über ALL-TAGS erreicht"
End If
Exit For
End If
End Sub
Ich wollte den Wert mit *.value, *.text und *.innertext übergeben... Fehlanzeige!Gruß
A.