Zeitgesteuerte Progressbar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
sicher klappt das so. Solltest Du vorhaben, nach dem Öffnen der Exceldatei Daten aus Access oder sonstwoher in Excel zu übernehmen, dann muß die Progreßbar in diesen Datenübernahme-Prozess integriert werden, ansonsten bleibt es eine nette Spielerei.
Diese Codezeile: Application.OnTime EarliestTime:=Start_OnTime, Procedure:="Userform2_anzeigen"
übergibt den Timingprozeß an Windows, wird dort in die Prozesse der zeitgesteuerten Abläufe mit der niedrigsten Ausführungsstufe eingeordnet und von Windows auch ausgelöst.
Was aber Du sicher willst ist Folgendes:
- Menge der zu übertragenden Daten ermitteln
- nach x% von 100% die Progreßbar-Anzeige aktualisieren
- neuen Datenblock abrufen usw.
Wenn Du das mit einer normalen Excel-Aktualisierungsabfrage machen willst, kann man aber die Progreßbar darin nicht einbinden. Hier muß man per Vba selbst Hand anlegen.
Alles andere ist nur Effekthascherei, sieht für den User beeindruckend aus, ist aber für den eigentlichen Hauptprozeß total unwirksam und verzögert den Startprozeß zur Arbeitsaufnahme durch den User um weitere Sekundeneinheiten (wird ja erst nach der schon stattgefundenen Datenübernahme ausgelöst).
Gruß von Luschi
aus klein-Paris

Hallo Christian,
ich will Dir dabei gerne helfen. Dazu muß man die in Excel erstellte Datenbankabfrage umwandeln in ein Recorset. Da man von der Abfrage ja so nichts sieht muß man das per Vba machen.
Zunächst muß aber Folgendes ermittelt werden:
- sind die abgerufenen Daten in der Tabelle als ListObjekt (Als Tabelle formatieren)definiert
- wenn ja, dann passiert das automatisch bei der Abfrageerstellung durch Excel
- das hat man seit Excel 2007 so integriert
Dann mache Folgendes:
- die Tabelle aktivieren in der die Ergebnisse der Abfrage angezeigt werden
- Cursor in eine Zelle der Daten setzen
- in der Menüleiste auf 'Entwurf' klicken
- Name des ListObjekts sich merken
- diese Prozedur in ein neues Modul kopieren


Sub Schritt_1b()
'wenn in der Tabelle ein Listen-Objekt existiert: 'Als Tabelle formatieren'
'Query-Abfrage des List-Objekts ermitteln und den Namen ins Direktfenster schreiben
Dim liObj As ListObject
'hier den Namen des Listobjektes korrekt aktualisieren
Set liObj = ActiveSheet.ListObjects("Tabelle_Artikel.accdb3")
Debug.Print liObj.QueryTable.SourceDataFile
Debug.Print liObj.QueryTable.CommandText
Debug.Print liObj.QueryTable.Connection
Set liObj = Nothing
End Sub

- Cursor in die letzte Vba-Zeile vor 'End Sub' setzen und die F9-Taste drücken.
- dadurch erscheint ein rot/brauner Haltepunkt
- über die Menüleiste des Vba-Editors Ansicht-Überwachungsfenster wählen
- im Quellcode das Wörtchen 'liObj' markieren und bei gedrückter linker Maustaste in das Überwachungsfenster ziehen
- mit dem Cursor wieder in das Programmfenster klicken
- jetzt mit der F5-Daste das Progrämmchen starten
- wenn die gelbe Markierungszeile erscheint, im Überwachungsfenster das 'liObj' öffnen
- und sich durchhangeln zu folgenden Einträgen:

Wenn Dir das gelungen ist, hast Du genau die Angaben, die man braucht, um aus der eigentlich unsichtbaren Excel-Access-Abfrage per Vba ein RecordSet-Objekt zu erzeugen, in dem man dann beim Schreiben der Daten in die Tabelle die Progreßbar einbinden kann.
Eigentlich liefern ja schon die 3 'Debug.Print'-Befehle die nötigen Angaben, aber ich wollte Dir auch zeigen, was man im Vba-Editor so noch alles anstellen kann.
Ich hoffe Du schmeißt jetzt nicht die Flinte ins Korn sondern ich habe Dein Ergeiz geweckt.
Den eigentlichen Programmcode dazu schicke ich Dir als Musterbeispiel, wenn Du mir auch so eine Grafik zurückpostest, damit ich sehe, daß Du es bis dahin geschaft hast.

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitgesteuerte Progressbar

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread