Räkna antalet loopar

[AniN]

Hej.

 

Jag har följande kod:

For i = 1 To Sheets("Fakta").Range("B2")

Dim r As Range
Set r = Sheets("Schemamall").Range("E2")
Do Until r.Value = ""
Set r = r.Offset(1, 0)
Loop
r.Value = Sheets("Fakta").Range("A2").Value

Next

 

Jag skulle för varje loop vilja skriva ut värdet av i i kolumn F, dvs. i F2 vill jag ha "1" för första loopen, i F3 "2" för andra loopen osv. Är det möjligt och i så fall hur gör jag?

 

Tack på förhand!

[Monshi]

Lägg in

r.offset(0,1) = i

på rätt ställa.

 

[AniN]

OK, tack. Något förslag på vad ”rätt ställe” skulle kunna vara och hur koden kan se ut? (Jag är helt ny på det här.)

[Monshi]

Do Until r.Value = ""
	r.offset(0,1) = i
	Set r = r.Offset(1, 0)
Loop 

exempelvis.

 

[AniN]

Funkar delvis men ger maxvärdet på i på samtliga rader. Går det att komma runt det så att jag får 1, 2, 3 osv. upp till max?

[Monshi]

Ah, du vill ha i skriver du och du har i i den yttre loopen.

Du vill ha ett annat index i inre loopen?

Dim k as Integer
k = 1
Do Until r.Value = ""
	r.offset(0,1) = k
	Set r = r.Offset(1, 0)
 	k = k + 1
Loop 

[AniN]

Sorry, fel av mig  Nu funkar det perfekt. Tack!