"ungültige Webabfrage"

Sub drawMap()
Dim map_cells, map_rows
Dim qtQtrResults(55)
Dim coords(2) As Integer
map_cells = 1
map_rows = 5
coords(1) = 75
coords(0) = 138
For i = 1 To map_cells
For j = 1 To map_rows
Row = Trim(Str(coords(0) + (i - 1) * 5))
Cell = Trim(Str(coords(1) + (i - 1) * 5))
url = "www.bliblablubb.de/index.php?cell=" + Cell + "&row=" + Row
Set qtQtrResults(i * 10 + j) = Sheets("Karte").QueryTables _
.Add(Connection:="URL;" + url, _
Destination:=Sheets("Karte").Cells(1 + (j - 1) * 25, 1 + (i - 1) * 5))
With qtQtrResults(i * 10 + j)
.WebFormatting = xlAll
.WebSelectionType = xlSpecifiedTables
.WebTables = "3"
.EnableRefresh = False
End With
Next
Next
End Sub