in ausgeblendeter Tabelle3 speichern.
07.10.2012 19:59:33
Wolfgang
wie muß ich den folgenden Code umstellen, damit die zu speichernden Daten immer in die ausgeblendete Tabelle3 gespeichert werden?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
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