Eksekver kode for hver hundrede

Jeg har fundet en løsning.

Ja, og det var naturligvis at benytte operatoren mod

if i mod 100 = 0 then
  ' gør det der skal gøres for hver 100 iterationer
end if

NB: det et god skik at dele sine løsninger når man selv finde den - Eksperten er trods alt et erfaringsdelingsforum... :-)

Det var faktisk ikke min løsning. Min løsning var denne:

    i_hundreder = i / 100
   
    If Len(i_hundreder) = 1 Then
    Application.StatusBar = "Nu er der sammenkædet " & i & " personer..."
    End If

Men din er meget bedre, da den også tager højde for, hvis i > 900, og så behøver jeg ikke strengen i_hundreder, hvilket sparer computerkraft.

Jeg opretter et nyt spørgsmål ved navn "Eksekver kode for hver hundrede 2", sådan at du kan få nogle point :)

En sidste ting du måske kan hjælpe mig med. Jeg har dette stående efter min løkke lige før "End Sub": Application.StatusBar = False
Mit problem er bare, at den ikke eksekveres, sådan at den f.eks. stadig skriver, "Nu er der sammenkædet 900 personer..." i statusbaren.

Det er fordi statusbar ikke eksisterer på application.objektet - det er en browserting og har ikke noget med serverkoden at gøre. Hvis du skal (og browserens ejer giver dig lov), så skal du efterlade et script i siden som ændrer statusbaren:

<script type="text/javascript">
window.status = "Nu er der sammenkædet 900 personer...";
</script>

Ups! Der skal naturligvis smide en tom streng i window.status og ikke den streng du ville slette... :-)