A
Andreas Szabo
Hi
during a process in excel, a progressbar advise the status of the process.
in a label, i want to display a text, which process is now active. There are
7 processes to display. Unfortunately, just the last process will be
displayed. It's now problem with a statusbar, but i'd like to display a
label. This is the code
lblProgressBar.Visible = True
ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = 300
ProgressBar1.Value = ProgressBar1.Min
For OutputZähler = 1 To GenerateOutput
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.StatusBar = "Rechnet im Moment Simulation " &
OutputZähler
lblProgressBar.Caption = "Rechnet im Moment Simulation " &
OutputZähler
Application.ScreenUpdating = False
Call ExcelLesen
Call KonstantenFuellen
Call CalculateV
ROption = Log(1# + My(1))
Call HedgeCalculation
Call Cholesky
Call SimulProc
Next OutputZähler
ProgressBar1.Visible = False
lblProgressBar.Visible = False
Thanks for all your help.
during a process in excel, a progressbar advise the status of the process.
in a label, i want to display a text, which process is now active. There are
7 processes to display. Unfortunately, just the last process will be
displayed. It's now problem with a statusbar, but i'd like to display a
label. This is the code
lblProgressBar.Visible = True
ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = 300
ProgressBar1.Value = ProgressBar1.Min
For OutputZähler = 1 To GenerateOutput
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.StatusBar = "Rechnet im Moment Simulation " &
OutputZähler
lblProgressBar.Caption = "Rechnet im Moment Simulation " &
OutputZähler
Application.ScreenUpdating = False
Call ExcelLesen
Call KonstantenFuellen
Call CalculateV
ROption = Log(1# + My(1))
Call HedgeCalculation
Call Cholesky
Call SimulProc
Next OutputZähler
ProgressBar1.Visible = False
lblProgressBar.Visible = False
Thanks for all your help.