Hallo zusammen,

ich habe mehere Code ausprobiert und bekomme immer wieder das gleiche Fehlermeldung:

Laufzeitfehler: Automatisierungsfehler. Das aufgerufene Objekt wurde von den Clients getrennt.

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub Anmelden2()

Dim MyHTML_Element As IHTMLElement
Dim MyURL As String

'On Error Resume Next

'On Error GoTo Err_Clear

MyURL = "https://internet.de"

Set MyBrowser = New InternetExplorer

MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True

Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = MyBrowser.document
HTMLDoc.all.Email.Value = "username"
HTMLDoc.all.password.Value = "psw"

For Each MyHTML_Element In HTMLDoc.getElementsByName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next

'Err_Clear:
'If Err <> 0 Then
'Err.Clear
'Resume Next
'End If

End Sub

<fieldset>
  <legend>Bitte melden Sie sich mit Ihrer konzerninternen E-Mail-Adresse an:</legend>
    <section class="fieldset">
      <label for="username"> E-Mail-Adresse:</label> 
      <input type="text" name="email" id="username" value="" data-defaultvalue="beispiel@telekom.de" max="128" tabindex="1" title="Eingabe: E-Mail-Adresse" class="text defaultvalue">
    </section>
    <section class="fieldset">
      <label for="password">Passwort:</label>
      <input type="password" name="password" id="password" value="" max="32" tabindex="3" title="Eingabe: Passwort" class="text">
    </section>
    <section class="button">
      <input type="submit" name="login" id="submit" value="Anmelden" tabindex="4" title="Eingabe: Anmelden" class="button primary">
      </section>
</fieldset>