Fortschrittsbalken
17.06.2005 11:43:13
Richard
hab eine Frage, ich erstelle eine Serie von Diagrammen, das Makro dauert je nach Datenmenge ziemlich lange, jetzt habe ich einen Fortschrittanzeige eingefügt, die läuft aber nicht synchron mit der Diagrammerstellung, meine Frage ist jetzt, kann ich das irgendwie anpassen?
wäre dankbar für jede Antwort
gruß
richard
Private Sub Diagramm_3_Click()
Dim i As Integer
Dim iMax
Application.ScreenUpdating = False
Label6.Width = 0
iMax = 1000
For i = 1 To iMax
Label6.Width = (i + 1) / 10
Label6.TextAlign = fmTextAlignRight
Label6.Caption = Int(i / 10) & " %"
Label6.Font.Bold = True
Label6.ForeColor = RGB(256, 256, 256)
DoEvents
Next
For i = 1 To 20
If CheckGroup(i) Then
Call GroupSelect(i)
Call Diagramm_Komplett
Else
Debug.Print _
MsgBox("Gruppe " & i & vbLf & "hat keine Daten!")
End If
Next i
End Sub