Auslosung
06.11.2018 12:34:49
Nico
lässt sich der folgende Code so anpassen das evtl. die Namen vorher nicht zu sehen sind evtl. 2 Tabelle? und nach der Auswahl der Name gelöscht wird ? um eine Auslosung damit zu machen. Optimal wäre, wenn er den Code in einer Info Box zeigt.
ich danke im Voraus!
Sub Auswahl()
Dim r As Range, zufallszelle As Integer, zufallsbereich As Integer
Set r = Range("A1:a10").SpecialCells(xlCellTypeConstants) 'merke dir nur befüllte Zellen ( _
hier nur Konstanten, formeln würden ignoriert)
Range("A1:a10").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
r.Areas(zufallsbereich).Cells(zufallszelle).Activate 'Aktiviere die zufallszelle im _
Zufallsbereich
r.Areas(zufallsbereich).Cells(zufallszelle).Interior.ColorIndex = 4
End Sub