Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeit in Progressbar darstellen

Zeit in Progressbar darstellen
23.04.2004 14:53:43
Thomas_H
Hallo NG!
Ich möchte gerne eine zeitliche Veränderung in einem Progressbar darstellen.
z.b.: 10 Sekunden.
Wie schaffe ich es das der Progressbar jede Sekunde um 1 hinaufzählt bis er komplett gefüllt ist ???
Danke für eure Hilfe,
TH

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeit in Progressbar darstellen
23.04.2004 19:57:46
joel
hallo thomas
for i = 1 to 10
application.wait (now + timevalue("0:00:01")
'progressbar erhöhen
...
next i
gruss joel
AW: Zeit in Progressbar darstellen
24.04.2004 13:03:12
andre
Hallo TH,
hier mal der komplette code für 60 Sekunden:


'**********************************
'Userform mit Progressbar ProgressBar1 und
'Commandbutton
'**********************************
Private Sub TimeBarStart_Click()
UpdateProgressBar2 0
End Sub
'**********************************
'Modul
'**********************************
Public newvalue2
Sub StartProcessing2()
Dim lngTotal As Long, lngI As Long
    Load frmProgressBar1
    With frmProgressBar1
        .ProgressBar1.Scrolling = ccScrollingStandard
        .Show
    End With
End Sub
Sub UpdateProgressBar2()
Dim ET
    With frmProgressBar1
        If Not IsMissing(NewCaption) Then .Caption = NewCaption
        .ProgressBar1.Value = newvalue2
        If newvalue2 = 0 Then .Repaint
    End With
    newvalue2 = newvalue2 + 100 / 60
    If newvalue2 < 100 Then
    ET = Now + TimeValue("00:00:01")
    Application.OnTime ET, "UpdateProgressBar2"
    Else
    newvalue = 0
    End If
End Sub
'**********************************

     Code eingefügt mit Syntaxhighlighter 2.5



Grüße, André ( andre)


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige