title image


Smiley Fortschrittsanzeige
Hallo zusammen,etwas weiter unten hab ich einen guten Linkzum erstellen einer Fortschrittsanzeige gefunden.http://j-walk.com/ss/excel/tips/tip34.htmIn der Beispielarbeitsmappe werden meiner Meinung nachbei Click auf einen Button Zahlen errechnet und ineinen bestimmten Bereich eingetragen.Dazu läuft eine Fortschrittsanzeige.Nun zu meinem Problem:Ich habe in Sheet("Planung").Range("I4") eine Zahl(Jahr),wenn ich diese Zahl ändere und die Zelle verlasse werdensehr viele Formeln in der Arbeitsmappe neu berechnet.Dauer ca. 14 Sekunden.Wie muß ich den Code ändern, damit die Fortschrittsanzeigebeim verlassen von Zelle "I4",für die Dauer derNeuberechnung erscheint(aber nur wenn sich "I4" geändert hat).Danke vorab für Eure Hilfe.MfG CharlyHier der Code aus der Beispielarbeitsmappe:Private Sub CommandButton1_Click() UserForm1.ShowEnd SubSub ShowDialog()'The UserForm1_Activate sub calls Main UserForm1.LabelProgress.Width = 0 UserForm1.ShowEnd SubSub Main()'Inserts random numbers on the active worksheet Dim Counter As Integer Dim RowMax As Integer, ColMax As Integer Dim r As Integer, c As Integer Dim PctDone As Single If TypeName(ActiveSheet) "Worksheet" Then Exit Sub Cells.Clear Application.ScreenUpdating = False Counter = 1 RowMax = 100 ColMax = 25 For r = 1 To RowMax For c = 1 To ColMax Cells(r, c) = Int(Rnd * 1000) Counter = Counter + 1 Next c PctDone = Counter / (RowMax * ColMax) With UserForm1 .FrameProgress.Caption = Format(PctDone, "0%") .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10) End With'The DoEvents statement is responsible for the form updating DoEvents Next r Unload UserForm1End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: