Application.StatusBar als kurzform möglich?
11.06.2002 15:33:10
Hans-Jörg
ich schreibe in meinen gesamten Prozessen Protokollinfos in die Statusleiste dabei muß ich jedesmal diese Zeilen schreiben.
With Application
.ScreenUpdating = True
.Statusbar = "Bearbeitung bei -> 20%"
.ScreenUpdating = False
End With
Wie kann ich diese Schreiberei verkürzen?
z.B.
Dim SB As ?????
Set SB = Application.StatusBar
SB = "Bearbeitung bei -> 20%"
Letzte Möglichkeit die ich kenne währe :
Hans-Jörg
Hans-Jörg
Anzeige