Progressbar in Code integrieren
23.07.2014 11:18:19
ela
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