title image


Smiley Re: Fortschrittsanzeige anzeigen EXCEL 97 Makro
issen bisschen lang, aber funzt



Private Const Titel = "Bitte warten..."

Private Const Kopf = "Bis jetzt "

Private Const Schwanz = " beendet..."

Private Const Abbruch = "Soll die Aktion wirklich abgebrochen werden?"

Private TB(25) As Control

Private Lab As Control



Private Sub UserForm_Initialize()

Me.Caption = Titel

Me.Width = 266

Me.Height = 66

tbLeft = 6

For i = 1 To 25

Set TB(i) = Me.Controls.Add("Forms.TextBox.1", "TB" & i, True)

With TB(i)

.Left = tbLeft

.Top = 9

.Width = 9

.Height = 15

tbLeft = tbLeft + 10

End With

Next i

Set Lab = Me.Controls.Add("Forms.Label.1", "Lab1", True)

With Lab

.Left = 6

.Top = 30

.Width = 200

.Height = 12

End With

End Sub



Private Sub Userform_Activate()

Report 0, "Startet jetzt!"



'Dabei übergeben Sie die Prozentzahl der bereits verarbeiteten Datensätze.

AnzSätze = 1000

For i = 1 To AnzSätze



'**** Dummy Schleife

'***** ACHTUNG HIER KOMMT DEIN CODE HIN ********



'**** Ende der Dummy-Schleife

If i Mod 10 = 0 Then Report i / AnzSätze * 100 ' Prozentzahl übergeben

Next i

Report 100, "Jetzt beendet!"

Unload Me

End Sub



Private Function Report(Fortschritt As Integer, Optional Text As String)

If Fortschritt 100 Then

Err.Raise 32000, , "Prozentzahl ausserhalb des gültigen Bereiches."

End If

If Text = "" Then

Lab.Caption = Kopf & Fortschritt & " %" & Schwanz

Else

Lab.Caption = Text

End If

For i = 1 To Fortschritt

If i Mod 4 = 0 Then TB(i / 4).BackColor = &H80000002

Next i

DoEvents

End Function



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode 1 Then

Antwort = MsgBox(Abbruch, vbYesNo + vbCritical, Titel)

If Antwort = 6 Then

End

Else

Cancel = 1

End If

End If

End Sub

Sub test()

For j = 1 To 10000

Next j

End Sub



Sub test2()

For j = 1 To 10000

Next j

End Sub






------ tor

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: