Schema van cijfers naar namen

[ChantalM]

Ik heb op blad1 de indelingen staan van de wedstrijden.
en zou dit graag op tabblad Overzicht partijen mix in namen willen hebben.


Zou iemand mij hiermee kunnen helpen.

De namen moeten zich aanpassen aan het aantal deelnemers in dit geval 8, 9 of 10


alvast bedankt!

Bijgevoegd het bestand

 

[VenA]

Plaats even een normaal document zonder koppelingen naar

='https://d.docs.live.net/Users/moors/Downloads/[score (1).xlsm]Menu'!B7

De macroknoppen werken niet in een .xlsx. De verwachte uitkomst even handmatig invullen zal de vraag ook niet onduidelijker maken.

 

[ChantalM]

zie de bijlage.

heb even een tabblad bij gemaakt met eindresultaat.
Hierin staat hoe ik het liefst zou willen hebben.

 

[pasan]

Blad "eindresultaat" cel D6 deze formule voor de andere cellen moet je deze aanpassen uiteraard.

=INDEX($B$5:$B$56;VERGELIJKEN(Blad1!A5;$A$5:$A$56))

Je hebt de velden niet even groot, op blad1 in ronde 1 heb je maar 2 rijen en op blad eindresultaat heb je 12 rijen.
Zorg dus dat beide velden even groot zijn

 

[ChantalM]

Pasan dankje.

Dit is prima voor 8 spelers, maar weet u toevallig ook hoe ik dit in 1 functie kan zetten voor 9, 10 etc. spelers?
Waarbij de schema's weer anders zijn?

 

[Timshel]

Ik zie geen oplossing met formules.
Probeer het eens met VBA zoals in bijlage. De spelersschema's op Blad1 zien er goed uit maar zijn lastig voor de verwijzing. Gebruik in plaats daarvan de schema's zoals op tabblad tabel.

Sub Vullen()
    Dim Br, Bq, Bs
    Dim Rng As Range
    Dim i As Long, j As Long, k As Long, x
    Dim Sh
    
    Set Sh = Sheets("Overzicht partijen mix")
    Sh.Range("$D$6:$I$18,$D$22:$I$34,$D$38:$I$50,$D$54:$I$66,$D$70:$I$82").ClearContents
    Set Rng = Sh.Range("B5:B" & Sh.Cells(Rows.Count, 2).End(xlUp).Row)
    Br = Sheets("tabel").Cells(1).CurrentRegion
    x = Application.Match(Sh.Range("B4"), Sheets("tabel").Rows(1), 0)
    If IsError(x) Then
        MsgBox "voor dit aantal spelers is geen schema"
        Exit Sub
    End If
    For i = 2 To UBound(Br)
        If Br(i, x) <> "" Then
            Bq = Split(Br(i, x), "x")
            For k = 0 To 1
                Bs = Split(Bq(k), "-")
                For j = 0 To UBound(Bs)
                    Sh.Cells(14 + (Br(i, 1) - 1) * 16, 4 + j + k * 3).End(xlUp).Offset(1) = Rng(Bs(j))
                Next
            Next
        End If
    Next
End Sub

 

[VenA]

Volgens mij kan het wel met formules maar dan zal je het schema anders op moeten zetten.

 

[pasan]

Het invul schema heb ik verplaatst naar het blad eindresultaat vul met cijfers de ronden in en dan bedoel ik de kleine velden
Je zult zien dan de namen in beeld komen in het grote veld
Maak de kleine velden leeg om de namen weer te verwijderen.

Aan de layout moet je niet meteen gaan verbouwen of je moet weten hoe je de vba code aan moet passen.
Test maar eens of dit in de buurt komt

de module1 in dit voorbeeld bestand kun je gewoon verwijderen