Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Progress Bar für 5 Sekunden

Progress Bar für 5 Sekunden
09.02.2007 10:08:40
Patrick
Hallo,
ich habe eine Userform (fungiert nur als Info für den Benutzer) die genau 5 Sekunden angezeigt wird.
Das mache ich so:

Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 2), "ausblenden"
End Sub

Jetzt habe ich mir eine Progress Bar auf die Userform gelegt. Diese Userform soll in den 5 Sekunden durchlaufen (unabhängig von einem Makro). Mit "ausblenden" wird die Userform dann geschlossen.
Bitte Hilfe habe nirgends was verwertbares gefunden.
Gruß
Patrick

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Progress Bar für 5 Sekunden
09.02.2007 13:39:16
Erich
Hallo Patrick,
in ein allgemeines Modul: 
Sub ausblenden()
UserForm1.Hide
End Sub
(Nebenbei: Im Code stehen bei dir 2 Sekunden.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Progress Bar für 5 Sekunden
09.02.2007 14:19:49
Patrick
Hallo Erich,
habe mich wahrscheinlich schlecht ausgedrückt.
Das verstecken der Userform bekomme ich hin. Mir geht es um die Progress Bar. Ich bekomme es nicht hin, dass während den 5 (dieser Wert ist richtig) Sekunden bis die Userform geschlossen wird eine Progress Bar mit durchlaufenden Balken angezeigt wird.
Ich möchte die Progress Bar nicht an ein Makro koppeln. Das soll einfach nur nach dem Schema laufen zeige Progress Bar für 5 Sekunden (mit durchlaufendem Balken) und danach Userform.Hide.
Gruß
Patrick
Anzeige
AW: Progress Bar für 5 Sekunden
09.02.2007 19:38:24
Daniel
Hallo
was meinst du mit "unabänging von einem Makro?
Soll in den 5 Sekunden nebenher was sinnvolles passieren oder soll nur der Bargraph hochlaufen?
wenn nebenher noch ein anderes Makro laufen soll, gehts wahrscheinlich nicht (zumindest nicht nur mit VBA, denn VBA ist meines Wissens nach noch nicht Multitasking-fähig)
Wenn nur der Bargraph laufen soll, dann fügst du in deine Userform einfach 2 gleich große Labels ein (Label1 und Label2), die du sinnvollerweise übereinander legst und unterschiedlich einfärbst. Dabei solle Label2 VOR Label1 liegen.
Dann lässt du diesen Code laufen:

Private Sub CommandButton1_Click()
Dim Start As Single, Ende As Single
Dim Pause As Single
Ende = Timer + 5
Start = Timer
Do Until Timer > Ende
Label2.Width = Label1.Width * (Timer - Start) / (Ende - Start)
UserForm1.Repaint
Pause = Timer + 0.01
Do Until Timer > Pause
Loop
Loop
End Sub

gruß, Daniel
Anzeige

Links zu Excel-Dialogen

CommandButton Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige