Fortschrittbalken wo Makro ausführen
09.01.2018 07:55:34
Peter
ich habe eine grosse Datei mit mehreren UF.
In einer UF existiert ein Button mit welchem ein MakroUSB mit mehreren Makros ausgeführt wird.
Nun möchte ich einen Fortschrittsbalken anzeigen lassen während der Laufzeit dieser Makros.
Ich benutze folgende Daten für Fortschrittsbalken:
in UF_FortschrittbalkenUSB
Private Sub UserForm_Activate()
SW = 0
Label2.Width = 0
Call Progressbar2
UF_Ausführungsbereich.Show
End Sub
in Modul:
Option Explicit
Public SW As Long
Public iMonat, iJahr As Long
Public anzTage, anzDaten As Long
Dim Schritt, Schritt1, Schritt2 As Double
Dim Länge, Länge1, Länge2 As Double
Dim i, z As Long
Dim j As Integer
Dim Spalte As Integer
Dim Farbe As Integer
Dim Tag As Integer
Sub Progressbar2()
'SW = 3005 'Schrittweite festlegen
SW = 15000 'Schrittweite festlegen
Länge = 0
Schritt = UF_FortschrittbalkenUSBStick.Label1.Width / SW 'Schrittbreite pro Aktualisierung
With Worksheets("Hilfstabelle")
For i = 11 To SW
Cells(i, 19) = "Zeile " & i
Cells(i, 19).Interior.ColorIndex = 6
Länge = Länge + Schritt
UF_FortschrittbalkenUSBStick.Label2.Width = Länge
UF_FortschrittbalkenUSBStick.Label3.Caption = Format(i / SW, "0 %")
DoEvents
Next
End With
Application.Wait (Now + TimeValue("0:00:2"))
Call Fortschrittbalken_löschen
Unload UF_FortschrittbalkenUSBStick
End Sub Sub Fortschrittbalken_löschen()
Worksheets("Hilfstabelle").Range("S5:S3005").Delete Shift:=xlUp
End Sub
Wo muss ich bitte das MakroUSB einfügen, damit der Fortschrittbalken genau so lange läuft wie die Makros.
Besten Dank für eure Hilfe.
Gruss
Peter