Sub extraktor()
Dim IE As Object, s As String
Dim uklstart As Long, uklend As Long, ukl As String
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
Do While .Busy And .readyState <> 4: DoEvents: Loop
Application.Wait Now + TimeValue("0:00:06")
s = .document.body.outerHTML
uklstart = InStr(1, s, "Umsatzklasse")
uklend = InStr(uklstart, s, "<br")
ukl = Mid(s, uklstart, uklend - uklstart)
ukl = Replace(ukl, "Umsatzklasse:</span> ", "")
Sheets("Dummy").Range("A1").Value = ukl
.Quit
End With
End Sub