|
Hallo an alle,
ich habe eine Tabelle in denen in den Spalten A-D jeweils Werte abgezogen werden sollen.
Der Abzug soll 10% der Summe der Zellenwerte (A-D, jeweils zeilenweise) betragen, aber dann zufällig auf die vier Werte aufgeteilt werden.
Ich habe den allerersten, sehr einfachen Teil zur Berechnung der Abzugsmenge schonmal vorbereitet:
Sub Abzugzufall()
Dim sumrng As Range
Dim i, abzug, gesamt As Integer
For i = 1 To 3 'zum Test erstmal nur für 3 Zeilen
Set sumrng = Range(Cells(i, 1), Cells(i, 4))
gesamt = WorksheetFunction.Sum(sumrng)
abzug = Application.WorksheetFunction.Round(0.1 * gesamt, 0)
Next i
End Sub
Ich habe bisher noch gar nicht mit Zufallszahlen in VBA gearbeitet und weiß nicht, wie ich die Variable abzug nun zufällig auf die vier Mengen aufteilen bzw. abziehen kann. Bin für jeden Hinweis dankbar.
Steffi
|