Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

random userform

Forumthread: random userform

random userform
13.05.2020 13:15:38
Pascal
Hallo zusammen
gibt es eine Möglichkeit aus einer serie von 11 userforms eines per zufall aufzurufen?
ich habe folgendes versucht, klappt aber nicht:
Dim meme As Integer
meme = Int((11 * Rnd) + 1)
UserForm(meme).Show vbModeless
DoEvents
Irgendjemand eine zündende Idee? Besten Dank im voraus!
Pascal
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: random userform
13.05.2020 13:38:59
ChrisL
Hi Pascal
Hier eine Möglichkeit:
Sub t()
Load UserForm1
Load UserForm2
Load UserForm3
UserForms(Int(3 * Rnd)).Show
Unload UserForm1
Unload UserForm2
Unload UserForm3
End Sub
Leider müssen alle Userform geladen sein, damit es funktioniert. Insofern gefällt mir die Lösung nicht ganz so gut, wobei die Alternative eher in die Richtung gehen sollte, dass nur ein Userform im Spiel ist und dafür änderst du den Inhalt/Titel des Userforms gemäss Zufallsgenerator.
cu
Chris
Anzeige
AW: random userform
13.05.2020 13:43:24
ChrisL
Hier noch eine andere Idee...
Sub t()
Application.Run "test" & Int((3 * Rnd) + 1)
End Sub


Sub test1()
UserForm1.Show
End Sub


Sub test2()
UserForm2.Show
End Sub


Sub test3()
UserForm3.Show
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige