Progressbar in Code integrieren

hallo,
ich Habe folgendes problem.
Und zwar möchte ich einen Fortschrittsbalken in mein Programm integrieren.
Das Programm hat die Funktionen Dateien auf eine SHarepointseite hochzuladen. Welche dateien hochgeladen werden sollen wird durch das anhaken von kontrollkästschen abgefragt.
Somit habe ich eine Schleife für das hochladen der dokumente erzeugt. Da das ziemlich lange dauern kann, würde ihc gerne eine fortschrittsanzeige einbauen.
Das heißt ich möchte mit Klick auf die Befehlschaltfläche "hochladen" in meinem Excel Workbook, dass eine Userform aufgeht in der die Progressbar den Fortschritt der hochgeladenen dateien bzw die durchläufe in der schleife repräsentiert.
Da ich leider überhaupt keine Erfahrung mit Userform und progressbar habe, wäre ihc für ein kurzes Code Bsp dankbar. unten ist eine verkürzte form meines codes in das die progressbar integriert werden soll.
Könnte mir jemand ein beispiel in meinen code einfügen?
dim wbname as string 'Workbookname
dim znr as integer 'Zeilennummer
dim box as oleobject 'Kontrollkästschen
znr =1
For Each box In Tabelle1.OLEObjects 'jedes Active-X-Steuerelement prüfen
If TypeName(box.Object) = "CheckBox" Then werden "CheckBox"
'wenn Kontrollkästschen angehakt dann datei hochladen
If box.Object.Value = True Then
quelldatei = Workbooks(wbname).Worksheets(3).cells(znr,2)
zieldatei = Workbooks(wbname).Worksheets(3).cells(znr,3)
'kopieren der datei von quellordner in zielordner
filecopy quelldatei, zieldatei
znr = znr+1
end if
end if
next box
Vielen lieben Dank
Viele grüße
ela

Hi Ela
grundsätzlich könnte das Ganze so funktionieren
(ob es das auch bei dir tut, weiß ich natürlich nicht, da du nur Code und keine Bsp-Datei zeigst)
blöd is auch, dass du nur den Teil vom ganzen Code zeigst. Ich geh mal davon aus, dass deine Sub direkt oberhalb der ersten DIM-Zeile beginnt - wenn nicht, na ja, nich mein Problem
So, versuch mal
Zuerst muss das Userform aufgerufen werden.
Bei Klick auf deinen Button muss also dieser Befehl folgen:

Userform1.Show 'wenn Userform anders heißt, dann Name anpassen

dann muss dein eigtl Makro vom Userform "aufgerufen" werden; im Activate-Ereignis


Private Sub Userform1.Activate 'auch hier Userform-Name anpassen, wenn erforderlich
sbProgress
End Sub

Und dein Makro sollte in einem allgemeinen Modul stehen.


Sub sbProgress()
dim wbname as string 'Workbookname
dim znr as integer 'Zeilennummer
dim box as oleobject 'Kontrollkästschen
Dim liCounter As Integer
'zuerst muss die Anzahl der Markierungen ermittelt werden
For Each box In Tabelle1.OLEObjects
If TypeName(box.Object) = "CheckBox" Then
If box.Object.Value = True Then
liCounter = liCounter + 1
end if
end if
Next
'nun wird der Min/Max-Wert für Progressbar festgelegt
Progressbar1.Min = 0
Progressbar1.Max = liCounter
znr =1
For Each box In Tabelle1.OLEObjects 'jedes Active-X-Steuerelement prüfen
If TypeName(box.Object) = "CheckBox" Then werden "CheckBox"
'wenn Kontrollkästschen angehakt dann datei hochladen
If box.Object.Value = True Then
quelldatei = Workbooks(wbname).Worksheets(3).cells(znr,2)
zieldatei = Workbooks(wbname).Worksheets(3).cells(znr,3)
'kopieren der datei von quellordner in zielordner
filecopy quelldatei, zieldatei
znr = znr+1
end if
end if
'und hier wird der Progrssbar-Wert so lange um 1 erhöht, bis Schleife beendet + Progress-Max  _
erreicht
Progressbar1.Value = Progressbar1.Value + 1
DoEvents
next box
'nach Ende deines Makros muss das Userform wieder geschlossen werden
Unload Userform1
End Sub

So, du musst also ein Userform hinzufügen.
Dem Userform fügst du über die Werkzeuge eine Progrssbar hinzu
Und dann den Code so eintragen, wie ich es beschrieben habe.
Hilfts?
Ciao
Thorsten

Forumthread: Progressbar in Code integrieren

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Fortschrittsbalken in Excel VBA integrieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)