• 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.

Tekst vastzetten na random naamvolgorde

Robocops

Nieuwe gebruiker
Lid geworden
9 sep 2025
Berichten
4
Goedemiddag,
Voor een biljartcompetitie wil ik graag het eea automatisch uit laten voeren door excel. Ik heb hiervoor 4 namen in kolom A gezet en daarnaast in kolom B de volgende formule gezet: =SORTEREN.OP(A5:A8;ASELECT.MATRIX(AANTALARG(A5:A8)))
Elke keer als ik iets uitvoer zet hij dan de vier namen van kolom A in willekeurige volgorde in kolom B. Tot zover alles goed. Nu wil ik elders in het werkblad in een bepaalde cel een speeldatum invoeren, waarna de vier willekeurig gekozen namen ernaast komen te staan als speelvolgorde. Dit doe ik met de opdracht:
=ALS(C12="";"";B5)
Als het datumvak dus leeg is, zijn de vier vakken ernaast ook leeg. Zodra een datum wordt ingevuld worden de vier namen uit kolom B dus weergegeven rechts van de datum. Hoe kan ik er nu voor zorgen dat deze namen daarna niet meer mee veranderen met de nieuwe namen in kolom B na een invoer, maar bij een nieuwe datum eronder wel weer vier willekeurige namen komen te staan? Ik hoop dat jullie mijn vraag begrijpen, anders hoor ik het graag. Alvast bedankt voor het antwoorden.
 
Dat zal via VBA moeten want de aselect functie doet bij elke invoer een nieuwe berekening en dat wil je niet.
Dit laat ik graag over aan onze VBA specialisten.
 
Plaats je geanonimiseerde voorbeeld eens hier.
 
Dank voor je antwoord Popipipo. Ik weet niet wat VBA inhoudt, maar ik zal het eens opzoeken. Hoop dat er ook andere oplossingen voor zijn te bedenken....
Bericht automatisch samengevoegd:

@ AHulpje:
 

Bijlagen

Laatst bewerkt:
Met een macro (=VBA). Als in kolom C iets wordt ingetikt en kolom D in dezelfde rij is nog niet gevuld dan worden D t/m G gevuld en wijzigen daarna niet meer.
 

Bijlagen

Of even evalueren.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count = 1 Then
            If .Column = 3 And .Offset(, 1) = "" Then .Offset(, 1).Resize(, 4) = [transpose(sortby(bron,randarray(counta(bron))))]
        End If
    End With
End Sub

Of i.p.v. [transpose] → [torow]
 
Laatst bewerkt:
Terug
Bovenaan Onderaan