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

random userform

Forumthread: random userform

random userform
13.05.2020 15: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 15: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 15: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum