Textmitteilung über Zufallszahl
26.06.2003 15:02:00
Andrea
habe noch keine Idee wie ich innerhalb eines Codes eine Sprungmarke wie Call oder Select definieren kann. Ich möchte über eine Userform immer beim Öffnen der Datei einen anderen Wahlspruch ausgeben.
Die Userform ist kein Problem, die Zufallszahl auch nicht. Aber wie kann ich den 'zufälligen' Text generieren.
Sub Zufall()
Dim Wert1
Randomize
Wert1 = Int((20 * Rnd) + 1)
(Wie geht es hier weiter??????)
Spruch1:
UserForm3.Label2.Caption = "Hallo......."
Spruch2:
UserForm3.Label2.Caption = "Oops........"
Spruch3:
UserForm3.Label2.Caption = "Nanu........"
.
.
.
Spruch20:
UserForm3.Label2.Caption = "Du schon wieder........"
End Sub
Könnt Ihr mir bitte auf die Sprünge helfen?
Danke im voraus
Gruß Andrea
Anzeige