MsgBox mit zufälligem Werten

Question

Hallo!

Ich habe in einer Spalte mehrere Werte stehen und möchte, dass durch Klick auf einen Button jeweils ein anderer Wert aus dieser Spalte zufällig angezeigt wird. Kann mir da jemand helfen?

Vielen Dank
Petra

Answer 1

Hallo Petra,

Du möchtest den Code an Deine Bedingungen anpassen, darum so wenige Informationen.
MsgBox Cells(Application.WorksheetFunction.Roundup(Rnd() * 48, 0), 11)

Gruß Hajo

Answer 2

Hallo Petra,

der Code wählt eine Zufallszahl aus dem Bereixh A1:A25

Private Sub CommandButton1_Click()
Randomize
MsgBox Cells(Int(Rnd * 25) + 1, 1)
End Sub

Answer 3

Guten Abend!

Viele Dank für die schnelle Beantwortung. Meine Aufgabe ist sofort gelöst. Ich bin so froh, dass es dieses Forum gibt.

Gruß Petra