Hallo zusammen,

ich habe folgendes Problem. Ein Makro, welches über ein Button gestartet wird, sucht einen zufälligen Namen aus einer Liste aus (Code steht unten). Nun möchte ich aber, dass der ausgesuchte Name in einer anderen Zelle angezeigt wird und das kriege ich leider nicht hin. Könnt ihr mir da weiterhelfen.

Dim r As Range, Ausgabe As Range, zufallszelle As Integer, zufallsbereich As Integer
 
  Set r = Range("A1:a25").SpecialCells(xlCellTypeConstants)
  Range("A1:a25").ClearFormats 
  zufallsbereich = Int(Rnd() * r.Areas.Count) + 1 
  zufallszelle = Int(Rnd() * r.Areas(zufallsbereich).Cells.Count) + 1 
  r.Areas(zufallsbereich).Cells(zufallszelle).Activate
  r.Areas(zufallsbereich).Cells(zufallszelle).Interior.ColorIndex = 4