Thema Datum  Von Nutzer Rating
Antwort
11.11.2003 12:37:09 Wolfgang
NotSolved
11.11.2003 13:58:16 Rasta
NotSolved
Rot Aw:Aw:Progressbar
 11.11.2003 15:59:46 Wolfgang
NotSolved
11.11.2003 18:17:23 rasta
NotSolved
11.11.2003 18:19:53 rasta
NotSolved

Ansicht des Beitrags:
Von:
Wolfgang		 Datum:
11.11.2003 15:59:46		 Views:
1305		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Progressbar
Hallo Rasta,

Danke für deine Info. Ich weiß, dass es nicht sinnvoll ist das so zu programmieren, mich hat nur gereizt zu erfahren wie und ob generell der Speichervorgang gleichzeitig zur Progressbar laufen kann. Es müsste auch nicht hundertprozentig zeitlich stimmen. Wenn du mir trotzdem noch einen Tip geben kannst wäre ich dir sehr dankbar.

Gruß
Wolfgang

Rasta schrieb am 11.11.2003 13:58:16:

Hallo Wolfgang,

meiner Meinung nach funktioniert das nicht so, wie Du Dir das vorgestellt hast.

Die Programmierung einer Progressbar ist nur dann sinnvoll, wenn du weisst, wieviele Verarbeitungsschritte du hast.(Beispiel updaten einer db-tabelle)

du könntest höchstens stoppen, wie lange ein speichervorgang braucht und danach die progressbar füllen-- was aber meiner meinung nach blödsinn ist

wenn du trotzdem in dieser richtung weitermachen möchtest, helfe ich dir aber gerne :-)

gruß

rasta

Wolfgang schrieb am 11.11.2003 12:37:09:

Hallo,

Ich habe ein UserForm mit Progressbar eingerichtet. Nun möchte ich die Fortschrittsanzeige parallel zum Befehl activeWorkbook.save laufen lassen. Bisher arbeitet es Schritt für Schritt ab so dass erst die Fortschrittsanzeige und dann das Speichern erfolgt.
Leider habe ich schon mehrer Möglichkeiten mit DoEvents ausprobiert und habe es nicht hinbekommen. Vielleicht kann mir ja jemand weiterhelfen? Oder es geht vielleicht gar nicht wie ich mir das vorgestellt habe.
–Danke -

Mein Code für die Progressbar bisher:

Private Sub CommandButton1_Click()
Dim i As Integer

Me!ProgressBar1.Min = 0
Me!ProgressBar1.Max = 20000

For i = Me!ProgressBar1.Min To Me!ProgressBar1.Max
Me!ProgressBar1.Value = i
i = i + 1
Next
activeWorkbook.save
Me!ProgressBar1.Value = 0

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.11.2003 12:37:09 Wolfgang
NotSolved
11.11.2003 13:58:16 Rasta
NotSolved
Rot Aw:Aw:Progressbar
 11.11.2003 15:59:46 Wolfgang
NotSolved
11.11.2003 18:17:23 rasta
NotSolved
11.11.2003 18:19:53 rasta
NotSolved