waarde uit een cel als variabele toewijzen aan macro

[Anton1970]

Hoi,

In een spreadsheet staat een kolom met waardes. Deze waardes wil ik als variable toewijzen aan een script waarbij de uitvoer van dit script in de cel erachter moet komen.
Hoe krijg ik onderstaand script draaiende in excel (als macro?) waarbij cell B1, B2, B3 enz als variable functioneren.
In de eerste regel achter data-title= moet dan de verwijzing uit cell B1, B2 enz komen
<span class="imdbRatingPlugin" data-user="ur46174178" data-title="variable"
data-style="t1">
<a href="http://www.imdb.com/title/?ref_=tt_plg_rt" >
</a></span>
<script>
(function(d,s,id){var js,stags=d.getElementsByTagName(s)[0];
if(d.getElementById(id)){return;}js=d.createElement(s);js.id=id;
js.src="http://g-ec2.images-amazon.com/images/G/01/imdb/plugins/rating/js/rating.min.js";
stags.parentNode.insertBefore(js,stags);})(document,'script','imdb-rating-api');
</script>

 

[ExcelAmateur]

Anton1970,

Je ben allang lid, dus moet je toch wel weten dat de code tussen de codetags moet staan.

 

[spaarie]

Sub Spaarie()
    For Each v In Sheets(1).Columns(2).SpecialCells(2)
        If v <> "" Then
        c = "<span class=" & Chr(34) & "imdbRatingPlugin" & Chr(34) & "data-user=" & Chr(34) & "ur46174178" & Chr(34) & "data-title=" & Chr(34) & v & Chr(34) & _
            "<data-style=" & Chr(34) & "t1" & Chr(34) & ">" & _
            "<a href=" & Chr(34) & "http://www.imdb.com/title/?ref_=tt_plg_rt" & Chr(34) & ">" & _
            "</a></span>" & _
            "<script>" & _
            "(function(d,s,id){var js,stags=d.getElementsByTagName(s)[0];" & _
            "if(d.getElementById(id)){return;}js=d.createElement(s);js.id=id;" & _
            "js.src=" & Chr(34) & "http://g-ec2.images-amazon.com/images/G/01/imdb/plugins/rating/js/rating.min.js" & Chr(34) & ";" & _
            "stags.parentNode.insertBefore(js,stags);})(document,'script','imdb-rating-api');" & _
            "</script>"
            
            v.Offset(, 1) = c
        End If
    Next
End Sub

 

[Anton1970]

Bedankt voor jullie reactie.

@Excelamateur, je hebt gelijk, echter ik ben er nu pas echt iets mee aan het doen. Mij vraag moest eigenlijk anders zijn (hoe draai ik het HTML stukje als VBA in een query, waarbij ik cellen als vaiabelen kan toewijzen).

@ Spaarie heel erg bedankt voor je code! Dit is een ingrijpendere aanpssing dan ik dacht. Ik zie nog niet hoe zich dit allemaal verhoud, maar ik ga me in VBA verdiepen.

dank jullie,
groet,
Anton

 

[Anton1970]

@ Spaarie,

Het werkt, echter de uitvoer is niet hetgeen dat met het scrip wordt aangeroepen. Het lijkt alsof dit als letterlijke tekst in de cel komt te staan.

 

[spaarie]

Wil je er een hyperlink van maken dan?

 

[Anton1970]

Nou nee, de bedoeling was de HTML als macro te laten draaien waarbij de tt waardes als variabelen zouden dienen. De uitkomst van het script gedeelte moet dan in de cel ernaast komen.