Datenübergabe an Webseite

[Knobi]

Hallo,

ich habe ein Problem mit der Datenübergabe an eine Webseite.
Die erste Eingabe bekomme ich noch hin, die anderen Formulareinträge der Webseite kann ich nicht ansprechen.
Es geht dabei um eine technische Berechnung.
Die vorher berechneten Werte sollen von Tabelle1 A2 bis A8  in das Formular der Webseite eingetragen werden.
Vielleicht hat jemand eine Lösung für mich?

Hier mein Versuch:

Sub BWPSchall()
  Dim IEApp As Object, oContent As Object
  Dim IEDocument As Object
  Dim strURL As String
  Dim StrasseMitHausnr As String
  Set IEApp = CreateObject("InternetExplorer.Application")
  IEApp.Visible = True
  IEApp.navigate "https://www.waermepumpe.de/normen-technik/schallrechner/"
  Do: Loop Until IEApp.Busy = False
  Set IEDocument = IEApp.Document
  Do
    On Error Resume Next
    Set oContent = IEDocument.getElementByid("content")
  Loop Until Err.Number = 0
  On Error GoTo 0
  With IEDocument
    .getElementByid("hersteller").Focus
    .getElementByid("hersteller").Value = Worksheets("Tabelle1").Range("D2")
    
  
  End With
End Sub


Gruß
Knobi

[schauan]

Hallöchen,

wenn Du bei uns nach website suchst findest Du ein paar Tipps, z.B. VBA-getelementsbyclassname-click und mehr. Hast Du es denn inzwischen hinbekommen? Bei mir füllt Dein code nicht mal die combobox, getestet mit Buderus in D2.