Fordeling af personer i gruppe

Opfattes en gruppe som ændret, hvis blot een deltager udskiftes ?

Hej finb,

Ja gruppen vil være ændret såfremt alene en deltager udskiftes.

vh

perpe

Prøv om du kan bruge dette
http://gupl.dk/701535/

Jeg har kigget lidt med over jeres skuldre *S*, da jeg senere skal bruge næsten samme udfordring til holdsætning.

Det ser umiddelbart godt ud; men der er små fejl i din kode.

Jeg har prøvekørt din makro med navne i stedet for K01 - K02 etc og får sommetider hold hvor f.eks. Karen er på 3 forskellige hold i samme måned.

Ja, jeg satte en ekstra linie til overskrift ind efter at have skrevet makroen. Det skal man ikke gøre. Prøv denne
http://gupl.dk/701566/

Hej jens48,

Det ser godt ud, men det løser ikke helt opgaven, idet jeg oplever at der kommer 3 eller 4 kvinder i nogle af grupperne, når jeg erstatter K01, ... og M01, .... med rigtige navne.

vh

Peter Roer

Den skulle virke hvis du retter makroen til nedenstående (dvs. uden alfabetisk sortering, så kvinderne altid står i de to første linier):

Dim x As Integer
Dim y As Integer
Dim z As Integer
Range("Q2:Q15").ClearContents
Randomize
For x = 1 To 7
Do
y = Int(Rnd() * 14) + 2
Loop Until WorksheetFunction.CountIf(Range("q2:Q15"), y) = 0
Cells(y, 17) = y
Cells(3, x + 3) = Cells(y, 1)
Next
For x = 1 To 7
Do
y = Int(Rnd() * 14) + 2
Loop Until WorksheetFunction.CountIf(Range("q2:Q15"), y) = 0
Cells(y, 17) = y
Cells(4, x + 3) = Cells(y, 1)
Next
Range("Q2:Q15").ClearContents
For x = 1 To 7
Do
y = Int(Rnd() * 14) + 2
Loop Until WorksheetFunction.CountIf(Range("q2:Q15"), y) = 0
Cells(y, 17) = y
Cells(5, x + 3) = Cells(y, 2)
Next

For x = 1 To 7
Do
y = Int(Rnd() * 14) + 2
Loop Until WorksheetFunction.CountIf(Range("q2:Q15"), y) = 0
Cells(y, 17) = y
Cells(6, x + 3) = Cells(y, 2)
Next
End Sub

Det virker :-)

Tak for hjælpen.

vh

perpe