Office: Zufallsgenerator per Macro realisieren?

Moin, das es möglich ist einen Zufallsgenerator als Macro ausführen zu lassen ist ja klar. Aber leider finde ich nichts passendes für mein Anliegen oder nur um Zufallszahlen ausführen zulassen. Nun bin ich mit meinen Grundkenntnissen leider schnell am Ende angelangt.

Ich möchte vordefinierte Texte in eine Spalte (z.B. A1:A31) per Zufall eintragen lassen. Hier dürfen auch gerne doppelte Eintragungen stattfinden. Allerdings soll der Zufallsgenerator nicht in jede Zelle etwas reinschreiben, sondern einige zufällige Zellen frei lassen.

Bisher habe ich das immer über eine DropDown-Liste für jede Zelle einzelnd ausgewählt weil ich mich mit Macros nicht so gut auskenne.

Gibt es schon ein solches Macro oder kann mir jemand helfen dies zu realisieren?

Beste Grüße aus Hamburg!

 

Hallo!

Code:

Sub test()
Dim i As Integer, p As Single, A
A = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8", "Text9", "Text10")
p = 0.8     'zwischen 0 und 1 - je kleiner, desto mehr Leerzellen - alternativ auch einfach p = Rnd
For i = 1 To 31
If Rnd < p Then Cells(i, 1) = A(Int(Rnd * (1 + UBound(A))))
Next i
End Sub

 

Sehr geil! Genau so hab ich mir das vorgestellt. Vielen Dank Schatzi!!!
Aber nun noch eine bitte, wie stelle ich es an das die eingaben bei erneutem Klick auf meinem Button wieder gelöscht werden? Also erster Klick = Generierung der Texte, zweiter Klick = löschen der Texte, und dann das ganze von vorn. Oder bei jedem Klick ein erneutes ausfüllen. Denn zur zeit ist es so das er mit jedem Klick die ausgelassenen Zellen füllt, also ist bei jedem zweiten Klick die Spalte voll :-)

 

Hallo!

Schreibe diese Zeile vor die For-Schleife:

Range("A1:A31").ClearContents

 

Nochmal herzlichen Dank schatzi!
eine "vorerst" letzte Frage hab ich noch.

In Spalte A stehen ja nun die Texte, in Spalte B habe ich nun mittels eines Verweises Eurowerte angezeigt die erscheinen je nach dem was in Zelle A... erscheint. Ganz unten wird mir die Summe ausgegeben. Kann ich in dem Macro noch berücksichtigen das zum Beispiel 90 Euro in der Summe nicht übersteigt werden darf? Oder kann ich das irgendwie mittels eines Hinweises regeln um die Spalte dann manuell nachzubessern?

 

Hallo!

Dazu fällt mir nur ein, den Code sooft durchlaufen zu lassen, bis dein Limit unterschritten ist:

Code:

Sub test()
Dim i As Integer, p As Single, A
A = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8", "Text9", "Text10")
Do
p = 0.8
Range("A1:A31").ClearContents
For i = 1 To 31
If Rnd < p Then Cells(i, 1) = A(Int(Rnd * (1 + UBound(A))))
Next i
Loop Until Range("B33") < 90        'hier die Summenzelle angeben
End Sub

 

Prima,nun bin ich dank deiner sehr kompetenten und hammer schnellen Hilfe fertig.

Hab besten Dank!
Dieses Forum bleibt definitiv in meinen Lesezeichen!