Aktualisierung von Userforms
19.11.2004 15:55:12
Userforms
Ich öffne ein Userform in dem über 6 CheckBoxen abgefragt wird, welche Tabellenblätter aktualisiert werden sollen. Jede einzelne Erledigung soll sofort angezeigt werden, indem der Haken entfernt wird.
Diese Prozedur wird für alle ausgewählten CheckBoxen gemacht (max 6 mal). Mein Code hat einen Nachteil: Die Aktualisierung wird zwar ordnungsgemäß durchgeführt, doch die Aktualisierung der Anzeige wird erst nach der Gesamterledigung des Moduls ausgeführt und nicht sofort nach Teilerledigung. Der Prozessor ist während der Aktualisierung aus den geschlossenen Excel-Sheet richtig beschäftigt. Reicht die Zeit zwischen den Schritten vielleicht für die Anzeige nicht aus? Hat jemand den Knackpunkt gefunden?
Hier mein Code:
Private Sub CommandButton1_Click() 'Aktualisierungsbutton aktiviert
Set Blatt = Worksheets("Aktualisierung")
Blatt.Unprotect
If UserForm2.CheckBox1.Value = True Then 'für die erste CheckBox
ActiveWorkbook.UpdateLink Name:= _
"C:\Team1.xls" _
, Type:=xlExcelLinks
Blatt.Cells(7, 6).Value = FormatDateTime(Date, 0) & " " & Time 'Datum und Zeit in Tabelle schreiben
UserForm2.CheckBox1.SetFocus
UserForm2.CheckBox1.Value = False
Application.ScreenUpdating = True '<----Updating wird nicht angezeigt!!!!!
End If
If UserForm2.CheckBox2.Value = True Then 'für die zweite Checkbox
... usw.