Werte mit unterschiedlicher Häufigkeit verteilen
Betrifft: Werte mit unterschiedlicher Häufigkeit verteilen
von: Andi28
Geschrieben am: 26.09.2014 08:33:21
Hallo zusammen,
ich bin neu hier und habe ein Problem bei dem ich einfach nicht weiter komme.
In den Feldern A1 bis A7 stehen die Werte 31, 32 bis 37. In den Felder B1 bis B7 stehen Werte, die in der Summe 100 ergeben.
Ich möchte die Werte in den Feldern A1 bis A7 mit der Häufigkeit der daneben stehenden Werte in den Feldern B2 bis B7 nach dem Zufallsprinzip auf den Bereich A10 bis J19 verteilen.
Kann mir jemand helfen?
Betrifft: AW: Werte mit unterschiedlicher Häufigkeit verteilen
von: bst
Geschrieben am: 26.09.2014 10:32:28
Hi Andi28,
fülle ein Array mit den 100 Werten und ziehe daraus die Zufallszahlen.
HTH, Bernd
--
Option Explicit
Sub x()
Dim ar(1 To 100) As Integer, i%, j%, k%
If Application.Sum(Range("B1:B7")) <> 100 Then
MsgBox "Summe B1:B7 ist nicht 100", vbCritical
Exit Sub
End If
Randomize
For i = 1 To 7
For j = 1 To Cells(i, 2).Value
k = k + 1
ar(k) = Cells(i, 1).Value
Next
Next
With Range("A10:J19")
For i = 100 To 1 Step -1
j = Int(i * Rnd + 1)
.Cells(i) = ar(j)
ar(j) = ar(i)
Next
End With
End Sub
Betrifft: AW: Werte mit unterschiedlicher Häufigkeit verteilen
von: Andi28
Geschrieben am: 26.09.2014 13:01:55
Hallo Bernd,
funktioniert super!!
Herzlichen Dank
Betrifft: OwT: Bitteschön, gerne
von: bst
Geschrieben am: 26.09.2014 13:09:36
.
Beiträge aus den Excel-Beispielen zum Thema "Werte mit unterschiedlicher Häufigkeit verteilen"
Screenshot zu MsgBox
