Welkom, Gast. Alsjeblieft inloggen of registreren.
0 leden en 1 gast bekijken dit topic.
Sub Husselen()'brontekst staat in kolom A, de uitvoer in kolom CDim i%, r%Const aantal = 18Randomize'uitkomst uitvoer wissenRange("C1:C" & aantal).ClearContents'doorloop alle cellenFor i = 1 To aantal 'zoek een lege cel Do 'willekeurig rijnummer r = Int((Rnd * aantal) + 1) Loop Until Cells(r, 3) = "" 'cel invullen Cells(r, 3) = Cells(i, 1)NextEnd Sub
Cells(r, 3) = Cells(i, 1)
Cells(r, 3) = Cells(i, 4)