Problemer med et loop

Do While StartCounter < SlutCounter?

du har byttet rundt på startcounter og slutcounter :)

prøv at skrive :
Do While StartCounter >= SlutCounter

istedet.

Det vil få loopet til at køre uendeligt....

mig der sover ;)

jelzin101 > Der er ikke byttet om på noget som helst.

Det er Startcounter der forøges ved hvert loop, og derfor skal der stå
  Do While StartCounter < SlutCounter , som ocp rigtigt siger

Hvis der står
  Do While StartCounter <= SlutCounter kører løkken en gang mere, idet den også vil køre når Startcounter = slutcounter.

Altsammen forudsat, at startcounter er mindre end slutcounter, når løkken køres ;o)

KIG LIGE PÅ DET *JEG* SKREV.

Sorry, Martin. Jeg er lige hurtig nok på aftrækkeren ;-)

til martin_moth

Det er også meningen at det skal køre når to to er =.

Men hvorfor stopper loppet ikke??

Private Sub rec(n As Integer)
Dim wsNytRegneark As Worksheet
If n = 0 Then Exit Sub
Worksheets("Timeseddel").Range("C3:R53").Copy
Set wsNytRegneark = Worksheets.Add
wsNytRegneark.Name = Format(StartCounter)
' Range("C3:R53").Select
' ActiveSheet.Paste
rec (n - 1)
End Sub

og så kald den med rec(n) 'hvor n er antallet af gange du vil have funktionen udført. (i dette her tilfælde er metoden bedre da du så kan nøjes med at have 1 tællevariabel, (og du jo ikke aktivt bruger dens inkrementerende værdi til ret meget.)

det skal dog siges at du ikke bør prøve med <0 da det vil få den til at gå i uendelig løkke.

Personligt foretrækker jeg:

While StartCounter <= SlutCounter
...
Wend

Loopet stopper også når StartCounter > SlutCounter!

Dim StartCounter As Integer
Dim SlutCounter As Integer
StartCounter = 1
SlutCounter = 5
Do While StartCounter <= SlutCounter
  MsgBox "StartCounter er: " & StartCounter & _
        " SlutCounter er: " & SlutCounter
  StartCounter = StartCounter + 1
Loop

Ovenstående loop - der er magen til dit - stopper når StartCounter er større end 5, og kører altså præcis 5 gange.

Prøv lige at kikke på hvilke værdier Startcounter og Slutcounter har, hvis du mener loopet ikke stopper (det gør det)

PS: Jeg går ud fra at både StartCounter og SlutCounter er dim'mede som integers

til jelzin101

Det ser også fint ud.

Med det er ikke et bestemt antal gang jeg skal køre løkken.

Lidt forklaring.

Jeg har lave en inputbox hvorfra jeg får en startdato. Ud fra denne start dato finder jeg et uge nummer.

Det sammen gør jeg med en slutdato, som blive til en slut uge.

Hvis nu start ugen blev 34 og slut ugen 40. Skal jeg bruge mit loop til at oprette nogle ark som hedder 34, 35, 36 etc.

Håber det gav lidt indblik.

ah oki ;)

Det var hvis det man klader for en begynder fejl...

Jeg havde ikke skrevet as integer til mine veriabler.

Tak til alle..

point til martin_moth.

p.g.a.

PS: Jeg går ud fra at både StartCounter og SlutCounter er dim'mede som integers

Takker :o)