Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Label alle 10 Sekunden für 5 Sekunden anzeigen

Label alle 10 Sekunden für 5 Sekunden anzeigen
k
Hallo,
...mal was anderes. Für unsere Azubis soll ein kleines "Lern-Spiel" gebastelt werden in Excel. Dazu sollen alle 10 Sekunden in einer Userform ein Produktname erscheinen und 5 Sekunden stehen bleiben. Der Azubi hat dann in dieser Zeit die Möglichkeit alles was ihm dazu einfällt in einer Textbox einzugeben.
Das die Produkte per Zufall in einem Label eingeblendet werden konnte ich realiseren, aber ich komme mit der Einbledung und Dauer nicht klar ?!
Versuchte es mit folgender Zeile bei Userform_Activate()
Application.OnTime Now + TimeSerial(0, 0, 10), "Produkte"
Produkte = Zufallsgenerator - der aus einer Liste per Zufall ein Begriff auswählt
Aber wenn ich die Userform starte passiert nichts ? Das Label aus der Produkte-Prozedure bleibt leer ?
Wer kann mir helfen, konnte im Archiv nichts passendens bisher finden !
Gruß und Danke
Kay
AW: Label alle 10 Sekunden für 5 Sekunden anzeigen
11.08.2009 16:53:14
Ramses
Hallo
Abgesehen davon dass in 5 Sekunden wohl nicht allzuviel eingetragen werden kann, solltest du auch mal die Prozedur "Produkte" zeigen
Gruss Rainer
AW: Label alle 10 Sekunden für 5 Sekunden anzeigen
11.08.2009 17:38:45
k
Hallo,
5 Sekunden ist tatsäschlich knapp - eigentlich sollte da auch 15 stehen, aber man kann sicherlich eine Variable dort einsetzen und es dann dem "niveau" der Azubis anpassen...
Der Code für die Produkte: 
Sub Produkte()
z = Int((150 - 3 + 1) * Rnd + 3)
Produkt = Worksheets("Artikel").Cells(z + 2, 5)
Label_Produkt.Caption = Produkt
End Sub
Die Produktliste steht unter dem Artikel-Tabellenblatt in Spalte E ab E2 bis E152...
Gruß und Danke
Kay
Anzeige
AW: Label alle 10 Sekunden für 5 Sekunden anzeigen
11.08.2009 18:16:44
Daniel
Hi
schau dir mal das hier an, vielleicht kannst du das für deine Zwecke verwenden.
https://www.herber.de/bbs/user/63765.xls
btw was hast du denn für Azubis? Was sollen die denn lernen? Schreibmaschine oder Assoziieren?
im 2. Fall sollten sie das erste aber schon können.
Gruß, Daniel
AW: Label alle 10 Sekunden für 5 Sekunden anzeigen
11.08.2009 21:44:34
Kay
Hallo Daniel,
vielen Dank ! Ja das Teil hat mir sehr weitergeholfen - konnte es für mich umschreiben und habe auch meinen Fehler so entdecken können (Hatte noch in den Eigenschaften der Labels sie auf Visible=False) stehen von einem anderen Versuch mit ein und ausblenden und so...nicht mehrgesehen, sobald die Userform aktiv war ;o(
Aber das Tool entspricht in etwas dem was ich suchte. Nun, um auch auf Deine AZUBI Frage zu antworten:
Es sind Ázubi für Bürokommunikation, die PC-Arbeit und schnelles schreiben lernen sollen und zeitgleich bei uns im Einkauf sitzen und da kam die Idee auf - PRodukte lernen mit der Übung schnelles schreiben ;o)
OK, nach einigen Tests haben wir es so gemacht, das wir mit 10 Sekunden starten ... und über eine Zelle kann die Zeit jederzeit angepasst werde.
Vielen Dank also auch im Namen unserer Azubis ;o)
Gruß
Kay
PS: Wie kann ich die Funktion killen ? Habe bemerkt, dass wenn das Fenster wieder schließt - der Counter irgendwie weiter mitgeht und noch im Hintergrund noch was geschieht in Excel - vermute (augfgrund von Beobachtungen - ohne wissenschaftl. Methoden), dass die Codes es noch genau so lange taten - wie Felder offen waren - also bis einmal alles durchgelaufen war. Wie kann ich mit dem Schließen diesen Prozess killen ?!
Anzeige
AW: Label alle 10 Sekunden für 5 Sekunden anzeigen
11.08.2009 22:17:44
Daniel
Hi
für die Zielgruppe ist das sicherlich kein schlechtes Spielchen, selbst mich hat beim Testen der Ehrgeiz gepackt, möglichst viele Begriffe einzutippen (in 10 sec sind schon ein paar möglich).
zur Frage, wie du diesen Prozess killst steht in der Hilfe zur OnTime-Methode:
Schedule  Optionaler Variant-Wert. True führt eine neue OnTime-Prozedur aus.
False löscht eine vorher eingestellte Prozedur. Der Standardwert ist True
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False

diese Prodzedur müsstest du dann entsprechend angepasst beim Schließen der Userform laufen lassen, also beim Userform-Event: TERMINATE.
dieses Event läuft bei UNLOAD oder wenn auf das Schließkreuz der Userform geklickt wird.
da hierfür die Ausführzeit bekannt sein muss, müsstest du die Ausführzeit (Now+Timeserial(0,0,5)) in einer globalen Variablen ablegen (wie ZEILE in meinem Beispiel), damit sie auch für das TERMINATE-Makro zur verfügung steht.
Gruß, Daniel
Anzeige
AW: Label alle 10 Sekunden für 5 Sekunden anzeigen
11.08.2009 20:41:26
Ramses
Hallo
Was willst du denn mit
Label_Produkt.Caption = Produkt
bewirken ? Das kann doch nicht funktionieren. Woher soll EXCEL denn wissen WO das "Label_Produkt" ist.
Wenn schon müsste es so heissen
UserformName.Label_Produkt.Caption = Produkt
Gruss Rainer

301 Forumthreads zu ähnlichen Themen

X-Achse innerhalb eines OWC10.Objektes
Marc

Guten Tag zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minut...
12.08.2008 13:39:59
Thread-ID: 1001188
3 Beiträge
Anzeige
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
3
3
5
4
15
5
1
2
6
3
9
9
7
3
2
2
6
2
3
9
2
2
4