Er blijft toch nog een probleempje over...
Dim goalvoor(1 To 18), goaltegen(1 To 18), winst(1 To 18), verlies(1 To 18), gelijk(1 To 18) As Integer
Dim tllr As Integer
tllr = 1
If tllr < 19 Then
Cells(tllr + 4, 95) = winst(tllr)
Cells(tllr + 4, 96) = verlies(tllr)
Cells(tllr + 4, 97) = gelijk(tllr)
Cells(tllr + 4, 98) = goalvoor(tllr)
Cells(tllr + 4, 99) = goaltegen(tllr)
tllr = tllr + 1
Else
End If
Dit wil niet werken zoals zou moeten. Om de een of andere reden gaat tllr veranderen in 0 nadat de lijn met het * is uitgevoerd. Waarom is mij een raadsel. Alles gaat goed tot aan het *. Tllr gaat dus ineens naar 0, alhoewel ik toch expliciet tllr tussen 1 en 18 laat lopen... De andere regels uit de if-structuur worden ook niet uitgevoerd. Begrijpen wie kan, ik eigenlijk niet.
Iemand een oplossing?
Bedankt
WG