ich habe diesen code auf der https://www.herber.de/mailing/213203h.htm gefunden.
nur hab ich noch nie mit klassen gearbeitet und hab keine ahnung was ich wohin kopieren soll.
kann mir vielleicht jemand schritt für schritt erklären was wohin gehört und ob irgendwelche addins eingeschaltet werden müssen.
vielen dank im voraus.
StandardModule: Modul1
Sub CallSearch()
frmSuche.Show
End Sub
ClassModule: frmSuche
Private Sub cmdBack_Click()
WebBrowser1.Navigate "https://www.herber.de/ _
form_test1.html"
cmdBack.Enabled = False
cmdOK.Enabled = True
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
WebBrowser1.Document.all("username").innertext = "Hans W. Herber"
WebBrowser1.Document.all("password").innertext = "Herbers Passwort"
WebBrowser1.Document.Forms(0).Item("Submit").Click
cmdOK.Enabled = False
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "https://www.herber.de/ _
form_test1.html"
End Sub