folgender Text:
https://www.herber.de/mailing/141201h.htm
hans
Private Sub WebBrowser1_DownloadComplete()
On Error Resume Next
Tag = "0"
End Sub
' URL (Webseite) laden
Private Sub URL_Load(ByVal sURL As String)
Dim sQuelltext As String
With WebBrowser1
.navigate "http://www.kicker.de"
Tag = "Load"
' Warten bis Seite vollständig geladen ist
While Tag <> ""
DoEvents
Wend
End With
Dim Quelltext As String
Quelltext = WebBrowser1.document.documentElement.outerHTML
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/9grephtml.xls
hans