vba makro zufallszahlen mit verteilung
13.04.2022 14:45:51
MeDonkey
Ich habe ein Excel mit verschiedenen Spalten und Zeilen.
Die Spalten bleiben gleich, die Zeilenzahl ist variabel
In der Zelle "E1" steht der Wert: "Abfragewert"
In der Spalte mit dem Wort "Abfragewert" in der obersten Zeile
Set MR = Range("A1:L1")
For Each cell In MR
If cell.Value = "Abfragewert" Then
'generiere entweder eine 11 oder eine 12 in einem Verhältnis zueinander von 70:30 +/-10 bis zur letzten Zeile
Next
Leider weiß ich nicht wie ich das mit dem zufälligen Verhältnis zueinander angeben kann
und auch hängt es ein bisschen, dass er zuerst das Wort sucht und dann in der Spalte bis nach unten die Zahlen zufällig einträgt.
Wie ich es bisher gelöst habe:
Aber das ist eigentlich auch nicht richtig (was ich auch weiß)
Dim lZeile As Long
Application.ScreenUpdating = 0
For lZeile = 2 To lastrow
If Application.WorksheetFunction.CountIf(Columns(1), Range("A" & lZeile).Value) > 0 Then
Range("E" & lZeile).Value = Int((12 - 11 + 1) * Rnd + 11)
End If
Next lZeile
Application.ScreenUpdating = -1
herzlichen Dank