I dit For-loop starter du med at sætte ssection = 1, og du slutter med at tælle den en op: ssection = ssection + 1. Denne optælling er jo irrelevant, når du i næste iteration igen sætter ssection = 1. Altså: ssection er ALTID 1 når du starter DO-loopet.
Dit problem er at du ikke kan sammensætte variabel- og objektnavne af andre variable:
F.eks. Dim A1,A2 A & "1" = 2 -Dette virker IKKE.
For eksempel når dine loops starter:
"If ssection & sektionnr < 10 Then"
I denne linie sætter du to integers sammen. Første gang er de begge 1. dvs at ssection & sektionnr = 11. Så tæller de ssection op, og næste gang er ssection & sektionnr = 21 osv. Din IF-sætning bliver aldrig True.
Nu kommer du aldrig så vidt for problemet starter i linien før: Do Until ssection > udskydning.ssektion & lsektion
Jeg går ud fra at udskydning.ssektion er et objekt i din form. Du kan ikke bare lægge en integer (lsektion) til et objekt.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.