ProgressBar während des Speicherns anzeigen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] ProgressBar während des Speicherns anzeigen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 27.06.2008, 10:40

Hallo,
ist es möglich, eine Progressbar während des Speichervorgangs einzublenden, damit evtl. ungeduldige Benutzer nicht meinen, dass Excel abgestürzt sei und aus lauter Verzweiflung alle Tasten der Tastatur in Bewegung setzen?

Ich bearbeite und schließe mein Excel über eine UserForm ( namens "Startseite"), welche als Haupt-UserForm während meiner ganzen Tätigkeiten geöffnet ist und direkt beim Öffnen von Excel aktiviert wird. Diese ist unverrückbar und kann nur mittels Passworteingabe geschlossen werden. Aus dieser "Startseite" heraus werden alle meine Masken ( UserForms ), welche ich zur Bearbeitung benötige geöffnet.

Auf dieser "Startseite" befindet sich der Button " Schließen und Speichern " mit Anweisung wie folgt:

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

Habt Ihr 'ne Idee?

Evtl. eine neue UserForm einfügen, welche in der Zwischenzeit des Speicherns angezeigt wird? Oder diese UserForm mit ProgressBar ausstatten?
Sollte schon etwas professionell ausschauen.

Private Sub CommandButton1_Click()
EsWirdGespeichert.Show
ActiveWorkbook.Save
Application.Quit
End Sub

Gruß Timi

silex1
Besserwisser

Anmeldedatum: 18.12.2007
Beiträge: 95
Wohnort: Dresden

Verfasst am: 27.06.2008, 11:03

Hallo,
hätte Dir gern ne Datei zur Verfügung gestellt, aber seit geraumer Zeit hat unsere Firma ne MEISE mit hochladen von Dateien aus unserem Net!

Daher geb ich Dir folgenden Link
http://www.excel-werkstatt.de/index.php?site=download/download&kat=14&anzeigedl=11

Da ist sicher was dabei!

lg silex1

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 27.06.2008, 13:05

Vielen Dank!
Habe nur ein Problem. Habe die 1. Version dieser ProgressBar bei mir
integriert und sie wird auch tadellos angezeigt; lediglich die Aktion, quasi der Speichervorgang meiner Datei wird nach dem ProgressBar ausgeführt und nicht währenddessen.

Sub Progressbar1()
SW = 3005
Länge = 0
Schritt = PB1.Label1.Width / SW
For i = 5 To SW
Cells(i, 1) = "Zeile " & i
Cells(i, 1).Interior.ColorIndex = 6
Länge = Länge + Schritt
PB1.Label2.Width = Länge
PB1.Label3.Caption = Format(i / SW, "0 %")
DoEvents
Next
Application.Wait (Now + TimeValue("0:00:2"))
Unload PB1
End Sub

Bitte um Hilfe!

Gruß timi

silex1
Besserwisser

Anmeldedatum: 18.12.2007
Beiträge: 95
Wohnort: Dresden

Verfasst am: 27.06.2008, 14:33

füge noch oder nur diesen Code unter DieseArbeitsmappe ein:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
PB1.Show vbModeless
DoEvents
Unload PB1
End Sub

silex1

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 28.06.2008, 11:46

Hallo nochmals,

Die ProgressBar funzt einwandfrei!
Beim Schließen/Speichern wird diese eingeblendet, läuft ab, jedoch findet der Speichervorgang nicht währenddessen statt, sondern verlagert sich immer noch hinter die ProgressBar.

Diese Anweisung steht in der Arbeitsmappe:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
PB1.Show vbModeless
DoEvents
Unload PB1
End Sub

Diese Anweisung löst das ganze Geschehen aus:

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

Hier zu meiner UserForm:

Option Explicit

Private Sub UserForm_Activate()
SW = 0
Label2.Width = 0
Call Progressbar1
End Sub

Und zum Schluß die Anweisung in meinem Modul:

Option Explicit

Public SW As Long
Public iMonat As Long, iJahr As Long
Public anzTage As Long, anzDaten As Long
Dim Schritt As Double, Schritt1 As Double, Schritt2 As Double
Dim Länge As Double, Länge1 As Double, Länge2 As Double
Dim i As Long, z As Long
Dim j As Integer
Dim Spalte As Integer
Dim Farbe As Integer
Dim Tag As Integer

Sub Progressbar1()
SW = 3005
Länge = 0
Schritt = PB1.Label1.Width / SW
For i = 5 To SW
Cells(i, 1) = "Zeile " & i
Cells(i, 1).Interior.ColorIndex = 6
Länge = Länge + Schritt
PB1.Label2.Width = Länge
PB1.Label3.Caption = Format(i / SW, "0 %")
DoEvents
Next
Application.Wait (Now + TimeValue("0:00:2"))
Unload PB1
End Sub

Kann mir zudem jemand sagen, wo ich die Geschwindigkeit der ProgressBar erhöhe?
Und halt das Problem, dass der Speichervorgang nicht in der Ablaufzeit der ProgressBar stattfindet. Dieses erhöht im Moment nämlich erheblich die Wartezeit, bis sich die Mappe speichert und schließt, wenn die Prozesse nacheinander statt miteinander ablaufen. Kann man evtl. die ProgressBar an die Speicherzeit anpassen, damit beides gleichzeitig endet? Dies wäre natürlich das Optimum!

Vielen Dank!

timi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.06.2008, 12:01

Hallo!

Ich mag mich irren, aber eine ProgressBar während des Speichervorgangs macht in meinen Augen wenig Sinn, denn der Speichervorgang ist ein EINZELNER Vorgang, auch wenn dieser etwas länger dauern mag.
Eine ProgressBar benutzt man normalerweise, wenn man lange Schleifen durchläuft, um einen Überblick zu behalten, wieviel der Schleife schon erledigt wurde.
Hier aber ist es nur ein rein optischer Effekt, der die ProgressBar alle zwei Sekunden wachsen lässt. "DoEvents" ist recht sinnfrei, da wie gesagt nur ein einziges Event aufgerufen wird, nämlich das Speichern.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 28.06.2008, 12:29

Danke Schatzi für Deine schnelle Antwort!

Ich stimme Dir zu, es ist ein rein optischer Effekt, damit halt irgendwas abläuft und man nicht meinen könnte, dass Excel sich festgefressen hat.

Ich dachte nur, dass man diesen optischen Effekt, der nun schon installiert ist auch zeitgesteuert nutzen kann. Quasi, ProgressBar ermittelt während seines Ablaufs auch die voraussichtliche Speicherzeit und zeigt dies auch prozentual an, damit am Ende des Ablaufs der PB sich auch die Arbeitsmappe schließt.
In diesem Fall schließt sich die Arbeitsmappe wesentlich später, da der eigentliche Speicher- und Schließvorgang erst nach Beendigung der ProgressBar aktiviert wird, was widerum dazu führen könnte, dass Excel sich vielleicht festgefressen hat.
Das Problem ist, dass nicht nur ich Excel verwende, sondern auch verschiedene andere Personen. Jeder reagiert halt anders, wenn beim Speichervorgang sich auf einmal nichts mehr tut. Da war so eine ProgressBar eine sinnvolle Installation.

Gruß timi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.06.2008, 12:37

Hallo!

Zitat:

Quasi, ProgressBar ermittelt während seines Ablaufs auch die voraussichtliche Speicherzeit

Und genau das ist eben nicht möglich, weil sie nicht hellsehen kann!
Du kannst "nur" Werte an die ProgressBar übermitteln, die von dieser dann angezeigt werden.

PS: Bei meinem Excel ist es übrigens so, dass während des Speicherns sowieso in der Statusleiste eine ProgressBar ("Datei wird gespeichert") angezeigt wird. Reicht dir diese nicht? Eine andere Chance sehe ich nicht.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 28.06.2008, 12:53

Hallo Schatzi,

Habe bei meiner Version eine Startseite(UserForm) erstellt, welche beim Öffnen von Excel automatisch FullScreen angeziegt wird. Diese ist fixiert und kann nur mittels Passwort entfernt werden, um an die dahinterliegenden Tabellenblätter zu gelangen.
Alles was ich aufrufe ( Klienten anlegen / Rechnungen-Quittungen-etc. schreiben / Interne Betriebsdaten( auch passortgeschützt ) u.v.m. ) werden per CommandButton aufgerufen und sind selbst eigenständige UserForms, welche sich vor meiner Startseite zum Bearbeiten und Abspeichern einblenden. Ich sehe quasi während der ganzen Zeit nichts mehr von Excel. Um die Tabellenblätter sehen zu können müsste ich, wie gesagt mittels Passwort die Startseite ausblenden.
Selbst beim Schließvorgang, welcher mittels CommandButton von der Startseite aus bedient wird, sehe ich nichts mehr, was irgendwie an Excel erinnert.

Daher auch keine Statusleiste. - Leider!

Könnte man diese Statusleiste nicht in die Startseite verknüpfen?

Zudem noch eine Frage, die mir gerade einfällt.
Ich bediene zudem das Internet über die Startseite, wobei sich IE auf dieser einblendet. Kann ich auf dieser Startseite auch Verknüpfungen anlegen, welche div. Programme, wie zB. WORD etc. ansteuern/öffnen?

Gruß timi

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Nachkomma Null nur anzeigen bei Hande...	al-fred	Microsoft Excel Hilfe	2	28.08.2008, 09:50
	Überschreiten einer maximale Anzahl f...	eccgiraffe	Microsoft Excel Hilfe	2	14.08.2008, 19:07
	Gif Dateien in Outlok anzeigen	Mahoni	Microsoft Outlook Hilfe	1	13.08.2008, 21:20
	Aktuelle Zeile anzeigen	b.staehle	Microsoft Excel Hilfe	1	15.07.2008, 10:09
	Anzeigen des Satzspiegels	zubergoos	Microsoft Word Hilfe	3	30.06.2008, 14:14

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de