Dubbele LOOP

[basschmidt]

Hey allemaal,

Ik wil graag een loop doen maar het werkt niet lekker,
Ik maak een spel waarin spelers op een bord lopen (in VBA)
Op een bepaalde positie (die staan allemaal al vast)
Wil ik graag informatie laten zien in een msgbox.
Die informatie pluk ik uit de sheet: "gebeurtenissen"
Mijn hoofdsheet is een andere.

als een speler op die positie komt, heb ik Call RndCard2 geschreven.
Dus deze sub wordt geactiveerd:

Sub RndCard2()

 i = 1
Do while i <= 60

                scasegebeurtenis = Worksheets("gebeurtenissen").Cells(i, 2).Value
                j = MsgBox(" " & scasegebeurtenis & scasegebeurtenis, vbOKOnly, "gebeurtenis")
                
 i = i + 1
Loop

End Sub

Nu wil ik dat hij maar 1 keer de msgbox laat zien en dat de volgende speler dan gewoon aan de beurt is.
Als deze speler op die positie komt, moet niet dezelfde informatie omhoog komen maar de volgende in de lijst

i is rijnummer dus dan moet hij i = i + 1 worden,

en dan moet dus de sub weer eindigen.

KAN IEMAND MIJ HELPEN???

Groet,
Bas

 

[Superzeeuw]

Probeer de volgende code eens.
Static doet het trukkje voor je.

Sub RndCard2()
    Static i
    If i < 1 Then i = 1
    MsgBox Worksheets("gebeurtenissen").Cells(i, 2).Value, vbOKOnly, "gebeurtenis"
    i = i + 1
End Sub

 

[snb]

Mij lijkt dit voldoende:

Sub RndCard2()
    MsgBox Worksheets("gebeurtenissen").Cells(rows.count, 2).end(xlup).Value, vbOKOnly, "gebeurtenis"
End Sub