Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

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"