|
Hallo Jan-Hendrik,
zu: "Übersehe ich hier was bzw. warum kann ich nicht den gesamten Quelltext so kopieren?"
Antwort: weil eine einzelne Zelle nur eine gewisse Anzahl Zeichen aufnehmen kann. Zurzeit sind das immerhin 32767. Gleichzeitig ist die maximale Zeilenhöhe auf 409 Punkt begrenzt, sodass du selbst davon wahrscheinlich nur einen Bruchteil siehst. Die Umsatzklasse kommt erst bei Zeichen 126492 und ist somit nicht enthalten. Daher würde ich den Quelltext nicht in eine Zelle schreiben, sondern in eine Variable vom Typ String. Den kannst du viel besser mit Instr durchsuchen.
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
.Navigate "https://www.wer-zu-wem.de/firma/steinel-normalien.html"
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
|