Zufallsgenerator
16.07.2014 15:00:53
Mogli
Ich habe die Aufgabe bekommen einen Zufallsgenerator zu entwerfen, der aus einer Liste von vielen Namen einen zufällig auswählt.
Dabei sind jedoch folgende zwei Probleme aufgetreten:
1. Der Zufallsgenerator wählt immer die gleichen Namen aus.
2. Die Namen stehen in der Spalte B. Dabei würde ich gerne die Zelle B13 aus der range herausnehmen, sodass dieser Name nicht ausgewählt werden kann. Mit meinem Code funktioniert es nicht, denn die Zelle B13 wird trotzdem ausgewählt.
Hier ist mein bisheriger Versuch:
Sub Auswahl()
Dim r As Range, zufallszelle As Integer, zufallsbereich As Integer
Set r = Range("B6:B89").SpecialCells(xlCellTypeConstants) 'merke dir nur befüllte Zellen ( _
hier nur Konstanten, formeln würden ignoriert)
Range("B6:B89").ClearFormats ' löscht die Formatierung (hilfreich, wenn man Zelle farbig _
makiert)
zufallsbereich = Int(Rnd() * r.Areas.Count) + 1 'Ermittle, aus wievielen Bereichen die befü _
_
llten Zellen bestehen und suche dir irgendeine aus (RND-Funktion)
zufallszelle = Int(Rnd() * r.Areas(zufallsbereich).Cells.Count) + 1 'Such dir aus dem _
beliebigen Bereich irgendeine Zelle aus
Do While zufallszelle = Int(13)
zufallszelle = Int(Rnd() * r.Areas(zufallsbereich).Cells.Count) + 1 'Such dir aus dem _
beliebigen Bereich irgendeine Zelle aus
Loop
r.Areas(zufallsbereich).Cells(zufallszelle).Activate 'Aktiviere die zufallszelle im _
Zufallsbereich
r.Areas(zufallsbereich).Cells(zufallszelle).Interior.ColorIndex = 4
End Sub
Könnt ihr mir dabei helfen? Wie müsste das VBA richtig geschrieben aussehen?
Beste Grüße
Mogli