Problem mit ShowModal = False
31.12.2006 14:23:31
Mister
Wenn ich meine Datei öffne, werden 5 Makros durch WorkbookOpen ausgeführt. Diese Makros sind teilweise sehr umfangreich sodass das Ganze ca. 10 Sekunden dauert. An sich ist das nicht schlimm. Nun wollte ich eine UF während dieser Zeit anzeigen lassen ("Bitte warten"). Damit die Makros im Hintergrund weiter laufen, habe ich die Eigenschaft ShowModal auf False gesetzt. Leider ist jetzt nur die Umrandung meiner UF sichtbar. Mein Code sieht so aus:
Private Sub Workbook_Open()
On Error Resume Next
UserForm3.Show
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
.ScreenUpdating = False
End With
BlendOut
Makro2
EinkaufListen
AllesAus
SuchListe
Sheets("Eingaben").Visible = xlSheetVeryHidden
Sheets("Stufen").Visible = xlSheetVeryHidden
Sheets("Mail").Visible = xlSheetVeryHidden
Sheets("Bestand").Visible = xlSheetVeryHidden
Sheets("Startseite").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Fenster").Enabled = False
Application.DisplayStatusBar = False
NewMenu
UserForm3.Hide
End Sub
Wer kann helfen?
Gruß
Mister B