Nummers maken voor de namen van de spelers (wedstrijdlijst)

[Aage]

Wat ik wil bereiken van deze wedstrijd lijst van de namen is om nummers er voor te plaatsen.
Bijvoorbeeld even tegen de oneven dus 1 tegen 2, 3 tegen 4, 5 tegen 6 ect.
Er wordt gespeeld 3 tegen 3 zie de namen met een lege regel er tussen.
Ik ben van alles geprobeerd in VBA om het te automatiseren, maar het lukt me niet.
Nu heb wel iets gevonden, maar dat is niet voldoende.
De wedstrijd lijst kan meer of minder worden met.
Ben niet zo heel goed in deze materie van VBA
Er moet iets van "lastrow = Cells(Rows.Count, "B"). Einde(xlUp). Row " bij gemaakt worden.
Is er een ergens een voorbeeld waar ik het kan gebruiken of is er iemand die mij hierbij kan helpen.
Ik zou het graag op prijs stellen als dat mogelijk is.

 

[Aage]

Reeksen maken even en oneven ivm wedstrijden.xlsm
	A	B	C	D	E
1
2
3	1	Seepma, N		2	Hoekstra T
4		Albeda, F			Jellema S
5		Hoekstra, Theun			Boer de J
6
7	3	Seerden, L		4	Vlas de J
8		Eringa, A			Wiersma E
9		Brouwer, A			Kramer, L
10
11	5	Hiemstra, J		6	Koops R
12		Groot, de S			Veen v/d J
13		Boer, de J			Visser L
14
15	7	Braaksma, H		8	Vries, P
16		Hinrichs, J			Meer v/d G
17		Feenstra, Jan			Schepen, L
18
19	9	Goot, van der A		10	Zandstra, K
20		Hallema, G			Jong, H
21		Hoitenga, W			Pietersma, F
22
23	11	Groen, N		12	Kramer, J
24		Baarda, M			Zondervan,V
25		Dantuma Sikke			Broersma, S
26
27	13	Zijlstra Roel		14	Grijpstra, P
28		Koster,B			Meer vd M
29		Dooper,H			Palsma, K
30
31
32
33
34
35
36
37
38
Wedstrijdlijst

 

[petertenthije]

Er moet iets van "lastrow = Cells(Rows.Count, "B"). Einde(xlUp). Row " bij gemaakt worden.

Is dit huiswerk? Het lijkt me onwaarschijnlijk dat deze code gebruikt moet worden. Dit gaat namelijk nooit werken.

De formules in VBA zijn altijd in het Engels. Als je deze formule wilt toepassen, dan zul je niet EINDE maar END moeten doen.

Alle wegen leiden naar Rome, maar dit is één manier om het aan te pakken.

Sub Macro1()

Dim AR As Integer       ' AR = aantal regels
Dim HH As Integer       ' HH = herhaling
Dim RN As Integer       ' RN = rij nummer
Dim TG As Integer       ' TG = team grootte

AR = Cells(Rows.Count, "B").End(xlUp).Row
HH = 1
RN = 3
TG = 3

Do Until RN > AR
    If (HH Mod 2) = 1 Then
        Range("A" & RN).FormulaR1C1 = HH
    Else
        Range("D" & RN).FormulaR1C1 = HH
        RN = RN + TG + 1
    End If
    HH = HH + 1
Loop
  
End Sub

 

[Aage]

Heel erg bedankt dat je tijd hebt genomen.
Dit is precies wat ik graag wil maken in een wedstrijd programma.
Ik heb alles gekeken geprobeerd om het voor elkaar te maken, maar ik wist wel dat dit niet zou werken met meerdere namen van spelers.
Wat je gemaakt hebt werkt prima zo.
Nogmaals bedankt.