Vullen van een heel bereik

[bouva]

Tot nu toe lukt het mij alleen om een rij in te vullen met hulp van de macro in het voorbeeldbestand.

Hoe zorg ik ervoor dat hij niet 1 rij maar het hele bereik vult.

Macro
Sub stemmen()
'
' stemmen Macro
'
Randomize

x = Range("A1:EVV3225")

For j = 1 To UBound(x)
x(j, 1) = Int(Rnd * 28)
Next

Range("A1:EVV3225") = x
End Sub

 

[SjonR]

zo:

 For j = 1 To UBound(x)
    For i = 1 To UBound(x, 2)
        x(j, i) = Int(Rnd * 28)
    Next
 Next

 

[JanBG]

Is dit niet gewoon een vervolg op deze?

https://www.helpmij.nl/forum/showthread.php/949882-Willekeurige-cijfers-met-exacte-aantallen?p=6203528#post6203528

 

[bouva]

Nee, dit had ik nodig voor een stage verslag

 

[SjonR]

Het begint met een D en het eindigt op ankjewel.

Voor sommigen teveel moeite blijkbaar.

 

[JanBG]

het begint met een d en het eindigt op ankjewel.

:d

 

[bouva]

Het begint met een D en het eindigt op ankjewel.

Voor sommigen teveel moeite blijkbaar.

Sorry ben nogsteeds met verschillende opdrachten bezig in mijn haast vergeten te bedanken.
Anlsnog bedankt SJON!