wie bekommen ich ein Eingabefenster in einem Makro für die IE Steuerung hin?
In das Feld "metaData.visibleFilters[0].pattern" soll manuell vom User eine Angebotsnummer eingetragen werden?
Sub IE()
On Error Resume Next
Dim IEApp As Object
Dim IEDoc As Object
Set IEApp = CreateObject("InternetExplorer.Application")
With IEApp
.Visible = True
.Navigate "http://um.dc.lan/umebosswebapp/frmAN100.do"
Do: Loop Until .Busy = False
Do: Loop Until .Busy = False
If .ReadyState = 4 Then
Set IEDoc = IEApp.Document
With IEDoc.Forms(0)
.Elements("metaData.visibleFilters[0].pattern").Value = "40500"
SendKeys ("{enter}")
End With
End If
End With
End Sub
Danke für die Unterstützung
gruß Tom