Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige