ComboBox in UF , Makro zu langsam
21.09.2005 10:44:01
Dirk
die Ausführung des folgenden Makros dauert ca. 2-3 Sekunden. Das müsst eigentlich schneller gehen, ich weiß leider nur nicht wie. Was ich schon herausgefunden habe ist:
Es dauert sehr lange,den aktuellen Status der ComboBox in die ComboBox einzulesen. Der Bereich "Se_Schriftgrad") liegt auf einem zweiten Tabellenblatt.
Hier das Makro
Private Sub UserForm_Initialize()
'-------- schaltet die Bildschirmaktualisierung und Automatische Berechnung aus
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'-------- und macht das Makro somit deutlich schneller
MsgBox ("ab jetzt dauert es zu lange, ca. 2-3 Sekunden")
'Füllt die CB-Liste mit der Schriftgröße aus der Quelle
SE_Schriftgrad_CB.AddItem "4"
SE_Schriftgrad_CB.AddItem "6"
SE_Schriftgrad_CB.AddItem "8"
SE_Schriftgrad_CB.AddItem "10"
SE_Schriftgrad_CB.AddItem "12"
SE_Schriftgrad_CB.AddItem "14"
'Der Folgende Programmschritt macht das Makro leider langsam !!
SE_Schriftgrad_CB.Value = Range("SE_Schriftgrad").Value
SE_Schriftart_CB.AddItem "Arial"
SE_Schriftart_CB.AddItem "Courier"
SE_Schriftart_CB.AddItem "Tahoma"
'Der Folgende Programmschritt macht das Makro leider langsam !!
SE_Schriftart_CB.Value = Range("SE_Schriftart").Value
SE_Schriftschnitt_CB.AddItem "Standard"
SE_Schriftschnitt_CB.AddItem "Fett"
SE_Schriftschnitt_CB.AddItem "Kursiv"
SE_Schriftschnitt_CB.AddItem "Fett Kursiv"
'Der Folgende Programmschritt macht das Makro leider langsam !!
SE_Schriftschnitt_CB.Value = Range("SE_Schriftschnitt").Value
Verknüpfungen_Schriftgrad_CB.AddItem "4"
Verknüpfungen_Schriftgrad_CB.AddItem "6"
Verknüpfungen_Schriftgrad_CB.AddItem "8"
Verknüpfungen_Schriftgrad_CB.AddItem "10"
Verknüpfungen_Schriftgrad_CB.AddItem "12"
Verknüpfungen_Schriftgrad_CB.AddItem "14"
'Der Folgende Programmschritt macht das Makro leider langsam !!
Verknüpfungen_Schriftgrad_CB.Value = Range("Verknüpfungen_Schriftgrad").Value
Verknüpfungen_Schriftart_CB.AddItem "Arial"
Verknüpfungen_Schriftart_CB.AddItem "Courier"
Verknüpfungen_Schriftart_CB.AddItem "Tahoma"
'Der Folgende Programmschritt macht das Makro leider langsam !!
Verknüpfungen_Schriftart_CB.Value = Range("Verknüpfungen_Schriftart").Value
Verknüpfungen_Schriftschnitt_CB.AddItem "Standard"
Verknüpfungen_Schriftschnitt_CB.AddItem "Fett"
Verknüpfungen_Schriftschnitt_CB.AddItem "Kursiv"
Verknüpfungen_Schriftschnitt_CB.AddItem "Fett Kursiv"
'Der Folgende Programmschritt macht das Makro leider langsam !!
Verknüpfungen_Schriftschnitt_CB.Value = Range("Verknüpfungen_Schriftschnitt").Value
End Sub
Zur Sicherheit hier noch mal die Datei:
https://www.herber.de/bbs/user/26791.xls
Schon mal vielen Dank im voraus!
Dirk Kaben
Anzeige