Steuerelement aktualisierung hängt
07.12.2004 18:50:54
Frank
ich habe auf einem Tabellenblatt mehrere (ca. 50) Steuerelemente (Label und Textbox), die über ein Makro mit Inhalten befüllt werden. Leider hängt die Aktualisierung der Steuerelemente spürbar nach, obwohl das Makro schon längst fertig ist. Ich benutze keine UserForm.
Vom Prinzip sieht mein Makro folgendermaßen aus:
______________
Sub Makro()
Dim t1
Set t1 = ActiveWorkbook.Worksheets("Tabelle1")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
t1.Label1.Caption = "Test"
t1.TextBox1.Value = 123
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
____________________________
Jetzt suche ich nach einer Möglichkeit, die Steuerelemente zu aktualisieren, bevor der Befehl screenupdating kommt.
Ich habs schon mit doevents und repaint versucht, aber das scheint nur mit userforms zu gehen.
Welche Möglichkeiten gibts noch, bevor ich alles in eine UserForm umbaue?
Grüße Frank
Anzeige