|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.03.2008 14:29:15 |
VBA-Nub |
|
|
|
17.03.2008 15:40:31 |
Holger |
|
|
 Aw:Aw:Formular öffnen während Sub ausgeführt wird |
18.03.2008 14:14:02 |
VBA-Nub |
|
|
|
19.03.2008 10:33:26 |
Holger |
|
|
|
19.03.2008 14:44:18 |
VBA-Nub |
|
|
Von:
VBA-Nub |
Datum:
18.03.2008 14:14:02 |
Views:
1364 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Formular öffnen während Sub ausgeführt wird |
@Holger
Danke für deine Mühe.
Habs auch noch mit DoEvents hinbekommen.
Nun habe ich allerdings ein weiteres Problem:
Wenn das Programm auf einem anderen PC ausgeführt wird, kommt es zum Laufzeitfehler 1004 "Die Datei wurde nicht gefunden. Überprüfen Sie die Rechtschreibung usw..." wenn folgender code ausgeführt wird.
Dim ExcelApp As Object
Dim NewMap As Object
Set ExcelApp = CreateObject("Excel.Application")
Set NewMap = ExcelApp.Workbooks.Open("C:\Norm.xls")
Beim Öffnen von Norm.xls erscheint dann der Fehler.
Holger schrieb am 17.03.2008 15:40:31:
Hallo VBA-Nub,
eine Aktualisierung der Anzeige kann man mit Repaint erreichen, leider nicht in allen Situationen.
Den Fortschritt der Berechnung kannst du auch mit einem ProgressBar anzeigen (Extra - Zusätzliche Steuerelemente - Checkbox bei Microsoft ProgressBar Control anklicken - OK. Auch die Verwendung des StatusBars ist möglich.
Viel Erfolg
Holger
VBA-Nub schrieb am 17.03.2008 14:29:15:
Hilfe,
ich habe ein Programm geschrieben, das eine Auswertung in eine Exceltabelle schreibt. Da dies ein wenig länger dauern kann kommt u.U. das Gefühl auf das Programm sei abgestürzt. Darum habe ich einen Ladebalken (wenn man das so nennen kann) folgendermaßen eingefügt.
Der Ladebalken kann 4 Situationen darstellen:
0%
25%
50%
und 100 %
das wird anhand von rs.recordcount und rs.AbsolutePosition bestimmt (Per Dreisatz den prozentualen Anteil bestimmt).
nun zu meinem Problem:
In einer Schleife wird das Recordset bis zum Schluss durchlaufen
währenddessen soll der Ladebalken sich aktualisieren.
Der Ladebalken besteht aus 4 Bildern die jeweils in ein Formular gepackt worden. Wenn also 25% erreicht worden soll das Formular mit 0% geschlossen werden und das Formular mit den 25% geöffnet werden usw... Das klappt auch soweit, aber die Formulare sind nicht zu sehen bzw. die Ansicht aktualisiert sich nicht.
Kann mir da jemand weiterhelfen?
Schon mal ein dickes Dankeschön
Euer VBA-Nub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
17.03.2008 14:29:15 |
VBA-Nub |
|
|
|
17.03.2008 15:40:31 |
Holger |
|
|
Aw:Aw:Formular öffnen während Sub ausgeführt wird |
18.03.2008 14:14:02 |
VBA-Nub |
|
|
|
19.03.2008 10:33:26 |
Holger |
|
|
|
19.03.2008 14:44:18 |
VBA-Nub |
|
|