Sub Aufruf()
WebAufruf ("http://www.xxx.de/search.php3?inhalt=&startnr=10")
End Sub
Function WebAufruf(Byval wName as String)
Dim TB As Worksheet
Dim dblCounter as Double
Set TB = ThisWorkbook.Worksheets(1)
dblCounter = Val(Right(wName, Len(wName) - InStr(1, wName, „startnr=“) - 7))
wName = Left(wName, InStr(1, wName, „startnr=“) + 7)
Do Until dblCounter = 1000
With ActiveSheet.QueryTables.Add(Connection:=„URL;“ & wName & dblCounter ,Destination:=Range(„A1“))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
dblCounter = dblCounter + 10
Loop
End Function