Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit ShowModal = False

Problem mit ShowModal = False
31.12.2006 14:23:31
Mister
Hallo Exceleratoren!
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
Userbild

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit ShowModal = False
31.12.2006 14:38:36
Matthias
Hallo,
versuch mal:
Userform3.Show
DoEvents
With Application
...
Gruß Matthias
AW: Besten Dank
31.12.2006 14:49:54
Mister
Perfekt!! :-)
AW: Problem mit ShowModal = False
31.12.2006 15:11:10
Daniel
Hi
wenn das ein Problem ist, kannst du ja anstelle der Userform eine Textbox mit dem Hinweistext einblenden, nach Ablauf der der Makros wird diese Textbox ausgeblendet
ActiveSheet.Shapes("Text Box 1").Visible = True
...
ActiveSheet.Shapes("Text Box 1").Visible = False
den Zellschutz würder ich allerdings erst danach aktivieren.
Frohes Neues Jahr, Daniel
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige