dag oplossers,

Ik het een probleempje. Ik heb een array gedefinieerd: Ploeg(1 to 18). Nu wil ik hebben dat in een loop de waarde van een van de ploegen stijgt met de waarde in een andere cel:


Ploeg(5) = Ploeg(5) + Cells(15,20).Value

"verder loopen"

Er komt een foutmelding: type mismatch.

Hoe moet ik de code aanpassen om het toch te laten werken? De fout zit hem in '+ Cells(15,20).Value', want dit deel vervangen door +2 (bijvoorbeeld) geeft wel normale resultaten.

Bedankt alvast!

Wim

Je zat er recht op Barthold, waarvoor grote dank!

WG

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

De variabele declaratie voor tllr ontbreekt:
dim tllr as integer

Bovendien zijn de declaraties voor je arrays niet juist: elke variabele moet een "as" hebben:
Dim goalvoor(1 To 18) as integer, goaltegen(1 To 18) as integer,...
anders definieer je je arrays als variant, minder efficiënt...

En nog iets anders: waarom doe je dat niet met een 2-dimensionele array: dim results(1 to 18, 1 to 5) as integer