Makro mit Button auf Userform (vbmodeless) beenden
19.10.2017 15:25:57
ZD14
Ist es möglich, die Tastenkombination STRG+Pause auf einen Button zu legen?
Bei mir läuft ein Makro, dass potentiell eine Endlosschleife werden kann (Berechnung des Internen Zinsfußes). Das Ganze ist in einer Szenarienanalyse verpackt. Um den User über den Fortschritt zu informieren, habe ich eine Progressbar gebastelt. Die Progressbar ist eine Userform, mit einen Frame und einem Label. Der Code um sie upzudaten schaut folgendermaßen aus:
Sub UpdateProgressBar(sng_PctDone As Single)
' The DoEvents allows the UserForm to update.
DoEvents
'Update Progressbar
With frm_Progress
' Update the Caption property of the Frame control.
.fr_Progress.Caption = Format(sng_PctDone, "0%")
' Widen the Label control.
.lbl_Progress.Width = sng_PctDone * (.fr_Progress.Width)
End With
End Sub
Ich verwende die Progressbar auch bei anderen Operationen, die laufen zwar sicher durch, es wäre aber auch nett, wenn der User diese abbrechen könnte.
Vielen Dank!
LG