Hallo zusammen,

bei mir soll durch einen Klick in Excel eine Interseite geöffnet werden und sich dann dort eingeloggt werden.. soweit passt es auch noch... allerdings hab ich noch ein kleines Problem. Nach dem Einloggen will ich einen bestimmten Bereich "Schnellzugriff" anklicken - dahinter verbirgt sich eine Tabelle die dann komplett ins Excel kopiert werden soll (vom Prinzip das was man sonst manuell über "Daten - Aus dem Web" machen kann).

Wie muss ich das Makro erweitern um das genau dies passiert???

Public Sub loggen() 

    Set IEApp = CreateObject("InternetExplorer.Application") 
    IEApp.Visible = True 
    IEApp.navigate "http://193.84.28.179/bergrettung/login.asp" 
    Do: Loop Until IEApp.Busy = False 
   Do: Loop Until IEApp.Busy = False 
   Set IEDocument = IEApp.document 
   Do: Loop Until IEDocument.ReadyState <> 4 
    IEDocument.getElementByID("Nachname").Value = "Mustermann" 
    IEDocument.getElementByID("Passwort").Value = "12345" 
    IEDocument.getElementByID("OK").Click 
   Do: Loop Until IEApp.Busy = False 
   Do: Loop Until IEApp.Busy = False 
   Set IEDocument = IEApp.document 
   Do: Loop Until IEDocument.ReadyState <> 4 
End Sub