Elemente aus html Quellcode auslesen

Sub b()
Dim IEApp As Object, all As Object
Dim zeile As Long, spalte As Integer
zeile = 1
spalte = 1
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www.wall-art.de/mustertapeten/" 'anpassen
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Document.ReadyState = "complete"
For Each all In IEApp.Document.all
If all.classname Like "products-box gridView" And all.nodename = "href" Then
Tabelle1.Cells(zeile, spalte) = all.innerText
zeile = zeile + 1
End If
Next
IEApp.Quit
Set IEApp = Nothing
MsgBox "Fertig"
End Sub