in ausgeblendeter Tabelle3 speichern.

Option Explicit
Private Sub CommandButton1_Click()
Dim strText As String, strArray() As String
Dim lngRow As Long, lngCount As Long
strText = WebBrowser1.Document.DocumentElement.outerTEXT
strArray = Split(strText, vbCrLf)
For lngCount = 0 To UBound(strArray)
If Trim$(strArray(lngCount))  "" Then
lngRow = lngRow + 1
Cells(lngRow, 1).Value = Trim$(strArray(lngCount))
End If
Next
End Sub
Private Sub UserForm_Activate()
CommandButton1.Enabled = False
WebBrowser1.Navigate "http://google.de"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
CommandButton1.Enabled = True
End Sub