Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

autostart makro mit Zufallsnachricht

autostart makro mit Zufallsnachricht
02.03.2004 14:52:59
Hölzl
Hallo liebe Herber-Gemeinde,
ich stehe vor einem Problem, welches ich alleine nicht lösen kann.
Ich will beim Dateistart ein autostart-Makro laufen lassen, welches per zufall eine von 60 Nachrichten anzeigt.
Das Autostartmakro mit einer einzelnen Nachricht schaffe ich ja noch, aber daß eine von mehreren Nachrichten per zufall angezeigt wird. Mein Versuch ging ltztendlich dahin, daß eine Nachricht je nach der Sekunde des Dateiaufrufs angezeigt wird, wie z.B. if sekunde=1 then msgbox "nachricht1" else if sekunde=2 then msgbox "nachricht2" usw.
Aber auch das schaff ich so nicht.
Wer hat einen Tip.
Wäre echt super
Gruß
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: autostart makro mit Zufallsnachricht
02.03.2004 15:10:25
Andi
Hallo Michael,
eine Zufallszahl zwischen 1 und 60 kannst Du mit
a = Int(Rnd * 59) + 1
erzeugen.
Die verschiedenen Nachrichten würde ich dann mit select case anzeigen.
Hilft Dir das?
Schönen Gruß,
Andi
AW: autostart makro mit Zufallsnachricht
02.03.2004 16:33:31
Michael
Tut mir leid,
trotz vieler Versuche und ettlichem Rumstöbern habe ich noch kein lauffähiges Makro geschafft.
Mein Makro sieht dzt. wie folgt aus.
Ich hab testweise 60 Nachrichten erfaßt, aber es erscheint immer nur die letzte Nachricht.

a=int(rnd*59)+1
select case a
case a=1
msgbox "nachricht1"
case a=2
msgbox "nachricht2"
...
case else
msg box "ende"
select end
Anzeige
AW: autostart makro mit Zufallsnachricht
02.03.2004 16:51:18
Andi
Hi nochmal,
probier mal
case 1
'...
case 2
'...
statt case a=1 etc
und
end select
statt select end
wenn a als Integer dimensioniert ist (dim a as Interger), dann läuft's bei mir.
Viel Erfolg,
Andi
Lösung gefunden
02.03.2004 16:57:46
Michael
Jetzt hab ichs gefunden
Letztlich war das Problem, daß ich vor dem rnd-Befehl den Befehl - randomize timer - einbauen mußte
also wie folgt:
randomize timer
a = int(rnd * 59)+1
select case a
case 1
msgbox "Nachricht1"
case 2
...
case else
msgbox "ende"
select end
AW: Lösung gefunden
02.03.2004 17:49:41
Andi
Hm, bei mir läuft's auch ohne randomize timer, liegt wahrscheinlich an der Excel-Version, ich hab' 2000.
Freut mich jedenfalls, dass es jetz läuft.
Schönen Abend wünscht
Andi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige