webpaginas aanmaken twee invulboxen

[CRUZ2]

Beste forum leden

Met de volgende code wil ik informatie van het web af halen.
Het importeren is gelukt nu nog dat je variablen in kan vullen en de functie kan herhalen m.b.t. de aantal pagina's die beschikbaar zijn.

de code die ik gebruikt is:

        ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.hierdeurl/dit_als_invulveld1/dit_als_aantal_paginas" _
        , Destination:=Range("$A$1"))
        .Name = _
        "?activeSort=sortname%7casc&local=false&regionSearch=true&dominantCategoryIsLocal=false"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False

Nu wil ik het volgende in de bovenstaande code bewerken en in laten vullen door een invulbox:
text string die veranderd wordt:
(Connection:= "URL;http://www.hier_de_url/dit_als_invulveld1/dit_als_aantal_paginas" _

1- dit_als_invulveld1
Dit moet in een invul veld ingevoerd worden.


2-dit_als_aantal_paginas.
Dit moet in een invulveld alleen moet de code zich herhalen tot de gewenste aantal
Dus stel:
aantal pagina's is 15
url : (Connection:= "URL;http://www.hierdeurl/dit_als_invulveld1/1" _
code herhalen tot (Connection:= "URL;http://www.hierdeurl/dit_als_invulveld1/15" _

Voorbeeldje bijgevoegd,

Alvast bedankt