Angela69
Gebruiker
- Lid geworden
- 9 mrt 2017
- Berichten
- 418
- Besturingssysteem
- Windows
- Office versie
- 365
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
In H10:
doortrekken naaCode:= F10
Hoe komen de namen van de spelers daar?Deze komen uit een programma die de wedstrijden registreert, waarbij de data invoer ook handmatig kan worden ingebracht en dan dit soort "problemen" veroorzaakt.Hoe komen de namen van de spelers daar?
Dit is voor de uitvoering van de macroExcuus, ik had op het laatste moment nog iets veranderd zonder het te testen. Bijgaand een nieuwe versie.
Dit is de realiteit: | ||
Uitwedstrijd | Thuiswedstrijd | |
Truus de Mier & Willem Bever | Bor de Wolf & Juffrouw Ooievaar | |
Ed Bever & Zoef de Haas | Willem Bever & Truus de Mier | |
Meneer de Uil & Isa Paradijsvogel | Isa Paradijvogel & Meneer de Uil | |
Bor de Wolf & Juffrouw Ooievaar | Meneer de Uil & Isa Paradijsvogel | |
Willem Bever & Truus de Mier | Zoef de Haas & Ed Bever | |
Isa Paradijvogel & Meneer de Uil | Truus de Mier & Willem Bever | |
Bor de Wolf & Juffrouw Ooievaar | Truus de Mier & Willem Bever | |
Willem Bever & Truus de Mier | Ed Bever & Zoef de Haas | |
Isa Paradijvogel & Meneer de Uil | Meneer de Uil & Isa Paradijsvogel | |
Meneer de Uil & Isa Paradijsvogel | Bor de Wolf & Juffrouw Ooievaar | |
Zoef de Haas & Ed Bever | Willem Bever & Truus de Mier | |
Truus de Mier & Willem Bever | Isa Paradijvogel & Meneer de Uil | |
Meneer de Uil & Isa Paradijsvogel | Bor de Wolf & Juffrouw Ooievaar | |
Zoef de Haas & Ed Bever | Willem Bever & Truus de Mier | |
Truus de Mier & Willem Bever | Isa Paradijvogel & Meneer de Uil | |
Truus de Mier & Willem Bever | Meneer de Uil & Isa Paradijsvogel | |
Ed Bever & Zoef de Haas | Zoef de Haas & Ed Bever | |
Meneer de Uil & Isa Paradijsvogel | Truus de Mier & Willem Bever | |
Bor de Wolf & Juffrouw Ooievaar | Willem Bever & Truus de Mier |
Haha die Isa toch. Hartelijk dank voor je script, ben dur erg blij meeDit is voor de uitvoering van de macro
Dit is de realiteit: Uitwedstrijd Thuiswedstrijd Truus de Mier & Willem Bever Bor de Wolf & Juffrouw Ooievaar Ed Bever & Zoef de Haas Willem Bever & Truus de Mier Meneer de Uil & Isa Paradijsvogel Isa Paradijvogel & Meneer de Uil Bor de Wolf & Juffrouw Ooievaar Meneer de Uil & Isa Paradijsvogel Willem Bever & Truus de Mier Zoef de Haas & Ed Bever Isa Paradijvogel & Meneer de Uil Truus de Mier & Willem Bever Bor de Wolf & Juffrouw Ooievaar Truus de Mier & Willem Bever Willem Bever & Truus de Mier Ed Bever & Zoef de Haas Isa Paradijvogel & Meneer de Uil Meneer de Uil & Isa Paradijsvogel Meneer de Uil & Isa Paradijsvogel Bor de Wolf & Juffrouw Ooievaar Zoef de Haas & Ed Bever Willem Bever & Truus de Mier Truus de Mier & Willem Bever Isa Paradijvogel & Meneer de Uil Meneer de Uil & Isa Paradijsvogel Bor de Wolf & Juffrouw Ooievaar Zoef de Haas & Ed Bever Willem Bever & Truus de Mier Truus de Mier & Willem Bever Isa Paradijvogel & Meneer de Uil Truus de Mier & Willem Bever Meneer de Uil & Isa Paradijsvogel Ed Bever & Zoef de Haas Zoef de Haas & Ed Bever Meneer de Uil & Isa Paradijsvogel Truus de Mier & Willem Bever Bor de Wolf & Juffrouw Ooievaar Willem Bever & Truus de Mier
en dit na uitvoering:
Bekijk bijlage 378514
Ik zie eerlijk gezegd geen verschil
Hoi Hulpje, ik dacht de macro zelf wel te kunnen aanpassen, maar dat valt toch niet mee.Kijk nog eens naar bericht #8, de ene paradijvogel is de andere paradijsvogel niet![]()
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
uit = Range("J2:J" & lastrow)
thuis = Range("K2:K" & lastrow)
...
...
Range("J2:J" & lastrow) = uit
Range("K2:K" & lastrow) = thuis
For i = 1 To UBound(uit)
If InStr(uit(i, 1), " % ") = 0 Then
MsgBox "Namen uit niet gescheiden door % op rij " & i
Exit Sub
End If
namen = Split(uit(i, 1), " & ")
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.