Microsoft Excel

Herbers Excel/VBA-Archiv

Zielwertsuche?

Betrifft: Zielwertsuche? von: Sven
Geschrieben am: 24.01.2007 22:58:48

Hi,

soll zu Testzwecken zu einem Zielwert per Zufall mögliche Teilwerte
erzeugen.

Also z.B.

Zielwert = 1000 (Parameter in B1)
Anzahl Teilbeträge: 25 (Parameter in C1)

Jetzt soll er mir 25 Zufallsbeträge(A1:A25) generieren, die dann in der Summe
genau 1000 ergeben.

Formellösung wäre schön, andernfalls Makro.

Grüße Sven

  


Betrifft: AW: Zielwertsuche? von: Josef Ehrensberger
Geschrieben am: 24.01.2007 23:51:36

Hallo Sven,

bitte mit der zu suchenden Summe nicht zu hoch gehen, sonnst rennt das "ewig"

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub summe()
    Dim lngSum As Long
    Dim intN As Integer, intI As Integer
    
    
    lngSum = Range("B1")
    intN = Range("C1")
    Range("A:A").ClearContents
    Redim vTmp(1 To intN) As Variant
    Randomize
    
    Do
        Do
            intI = intI + 1
            vTmp(intI) = Int(Int((lngSum * Rnd) + 1) / (intN / 2))
            If Application.Sum(vTmp) = lngSum Then GoTo Finish
        Loop While intI < intN
        intI = 0
    Loop
    
    Finish:
    
    Range("A1:A" & intN) = Application.Transpose(vTmp)
    
End Sub



Gruß Sepp


  


Betrifft: Danke, klappt super! oT von: Sven
Geschrieben am: 25.01.2007 16:14:24

oT


  


Betrifft: Zielwertsuche von: Florian Meyer
Geschrieben am: 25.01.2007 00:00:38

Hallo, Sven,

schau Dir einmal die Hilfe zu ZUFALLSZAHL() an.

Ein paar Enschränkungen musst Du in Deiner Aufgabenstellung hinnehmen, denn die Summe ist ja wiederum keine Zufallszahl sondern eine definierte Zahl.

Gruß, Florian


 

Beiträge aus den Excel-Beispielen zum Thema "Zielwertsuche?"