Start beschleunigen
23.09.2004 12:10:16
christoph
Hallo.
Ich habe ein Tool mit 10 Tabellen wobei eins davon mit ziemlich vielen Buttons versehen ist und ziemlich viele Module. Das Tool ist mittlerweile ca 2 MB groß.
Wenn ich mein Tool wird zur Startseite gesprungen und Symbolleisten werden ausgeblendet und statt dessen 2 Leisten mit eingenen Buttons eingefügt. Das dies ein Moment dauert ist klar ! Bei mir dauert es ca 5 Sekunden bis zur Startseite gesprungen wird und während dieser Zeit kann ich nix machen.Ich schätze das erst alle Module auf Syntaxfheler überprüft werden.
kann man diesen Prozess beschleunigen oder?
5 sekunden sind zwar nicht die Welt, nur wäre (es nett wenn es nicht beschleunigt werden kann) dann wenigsten während dieser Zeit die Startseite zu sehen und nicht die letzte gespeicherte Ansicht.
Private Sub Workbook_Open()
Sheets("Startseite").Select
Application.ScreenUpdating = False
Application.OnKey "%{F11}", " HOTKEY " 'TASTENKOMBINATION "ALT F11" Sperren
Application.OnKey "%{F8}", " HOTKEY " 'TASTENKOMBINATION "ALT F8" Sperren
Application.OnKey "%{F2}", " HOTKEY " 'TASTENKOMBINATION "ALT F2" Sperren
Application.OnKey "%{F1}", " HOTKEY " 'TASTENKOMBINATION "ALT F1" Sperren
Dim ws As Worksheet
' DAS SYSTEMMENÜ WIRD AUSGEBELNDET
LEISTEN False
' DIE EIGENE LEISTE WIRD ERSTELLT
Call LEISTE1_ERSTELLEN
Call LEISTE2_ERSTELLEN
' DIE EIGENEN BUTTON WERDEN EINGEFÜHGT
Call BUTTON1_ERSTELLEN
Call BUTTON2_ERSTELLEN
Application.ScreenUpdating = True
Call ANFANG ' SPRUNG ZUR STARSEITE
End Sub
Hat jemand ein Tip?
Danke für Hilfe,
christoph