Modifikation Zufallsgenerator
MathiasW.
ich habe ein Makro für einen Zufallsgenerator gefunden u. in eine Excel Datei eingebunden.
Dieser müsste allerdings modifiziert werden, da ich in VBA nicht wirklich fit bin, hoffe ich ihr könnt mir helfen.
Die Prozedur sieht so aus Function Zufall123() Dim Zufall As Integer, x As Integer For x = 1 To 50 Zufall = Int((21 * Rnd) + 1) Cells(2, 11).Value = Cells(Zufall, 1) Sleep 200 Next MsgBox Cells(Zufall, 1) End Function Die funktioniert auch wirklich gut, nur 2 Bedingungen müssten geändert bzw. eingefügt.
1) Der zufällige Name soll nur aus dem Bereich A2:A28 gewählt und
2) es soll vorher geprüft werden ob im Bereich G2:G28 das Wort "gebucht" steht
Bsp. im in A2 steht Name1 in G2 steht gebucht, in A10 steht Name2 in G10 steht gebucht in A18 steht Name3 in G18 steht gebucht. In den anderen Zellen im Bereich G2:G28 steht nix. Dann soll der zufällige Name nur aus den Zellen A2 & A10 & A18 ausgewählt werden.
Kennt ihr da eine Lösung?
vielen Dank im vorraus
gruss Mathias