Kopiëren van gegevens

[phgerritsen]

Beste forumleden,

Ik zit met een probleem waar ik geen raad mee weet.
In het kader van een competitie heb ik een schema gemaakt (speeldata, starttijden en uitslagen). Deze vul ik in 3 tabellen.
Vervolgens kopieer ik ze naar een worksheet. Er vind consequent een verschuiving plaats van 1 rij en 1 kolom.
Wie kan mij helpen?

Peter G

Sub SpeeldagenVullen()

    Application.ScreenUpdating = False
    Sheets("Matchplay").Select
    
    Dim Teller As Integer
    Dim rij As String
    Dim kolom As String
    Dim param1 As Integer
    Dim param2 As Integer
    Static DatumTabel(18, 18) As String
    Static StarttijdTabel(18, 18) As String
    Static UitslagenTabel(18, 18) As String
    
    Dim AantalRijen As Integer
    Range("A1").Select
    AantalRijen = Range("Matchplay!A1").SpecialCells(xlCellTypeLastCell).Row
    For Teller = 2 To 21
        rij = Cells(Teller, 3).Value
        
        param1 = Application.VLookup(rij, Range("Deelnemers"), 2, False)
        kolom = Cells(Teller, 4).Value
        param2 = Application.VLookup(kolom, Range("Deelnemers"), 2, False)

        StarttijdTabel(param1, param2) = Cells(Teller, 2).Value
        DatumTabel(param1, param2) = Cells(Teller, 1).Value
        UitslagenTabel(param1, param2) = Cells(Teller, 5).Value

    Next Teller
    
   
    With Sheets("Stand")
        .Range("B3:S20") = UitslagenTabel
        .Range("T3:AK20") = StarttijdTabel
        .Range("AL3:BC20") = DatumTabel
    End With

End Sub

 

[Superzeeuw]

Hallo,

Het probleem zit in het definieren van de param1 en 2
Deze hebben een startwaarde, param1=1 en param2 =2

op te lossen door achter beide params -1 te plaatsen zie hieronder:

param1 = Application.VLookup(rij, Range("Deelnemers"), 2, False)-1
kolom = Cells(Teller, 4).Value
param2 = Application.VLookup(kolom, Range("Deelnemers"), 2, False)-1

 

[phgerritsen]

Superzeeuw,

Het werkt. Maar hoe komt die verschuiving tot stand? Ik heb juist 2 identieke tabellen gedefinieerd, om makkelijk te kunnen kopiëren.
De coördinaten van de eerste wedstrijd (Anton tegen Ben) zou moeten zijn rij1, kolom 2, maar worden met jouw oplossing rij0, kolom 1. Is het zo dat de static tabel intern werkt van 0 - 17 i.p.v. 1-18?
Daar zal ik in het vervolg rekening mee houden.

Hartelijk bedankt voor je reactie.

groet,
Peter G

 

[Superzeeuw]

Peter,

Dat is correct