Ein Startbildschirm und seine Tücken...

Hallo Leute...
Da mein Projekt inzwischen ziemlich umfangreich ist und immer größer wird, hab ich
mir einen "Startbildschirm" gebastelt, damit die Startzeit überbrückt wird.
Dazu habe ich mir ein TabellenBlatt in "Start" umbenannt, alle Formatierungen und
Hilsobjekte entfernt und in die Mitte ein .jpg gelegt. Damit der Trick nicht auffällt,
wird dieses Start-Blatt vollständig ausgeblendet und nur zum Programmstart kurz
aktiviert. Das geschieht mit folgendem Code:


Private Sub Workbook_Open()
Worksheets("Start").Visible = True
Application.Goto Worksheets("Start").Range("I22")
Sheets("Start").Shapes("Startbildschirm").Visible = True
Application.ScreenUpdating = True
If Application.Wait(Now + TimeValue("0:00:5")) Then
Worksheets("Start").Visible = xlVeryHidden
End If
End Sub

Das läuft eigentlich gut, aber...
und jetzt das Problem:
1. Wenn man die Arbeitsmappe schließt, dann kommt IMMER der Speichern-Hinweis, auch
wenn man nur kurz was nachschauen will und garnix geändert hat.
2. Geschlossen wird die Arbeitsmappe immer von Arbeitsblatt2 aus, da ja "Start"
vollständig ausgeblendet wurde. Wenn ich jetzt neu öffe, dann kommt erst Blatt2, bleibt
ewig stehn, und dann erst wird zu "Start" gewechselt.
Wie bekomme ich den Speicher-Hinweis weg, bzw. kann ich den bearbeiten?
Was muß ich ändern, damit beim Öffnen sofort "Start" angezeigt wird, auch
wenn die Arbeitsmappe von einem anderen Blatt aus gespeichert wurde?
...sonnige Grüße aus`m Garten
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Activate() DoEvents 'Userform komplett aufbauen lassen Application.Visible = False On Error GoTo fehler Workbooks.Open "D:\xl\prog.xls" fehler: If err.Number > 0 Then MsgBox err.Description, vbCritical, "Fehler Nr." & err.Number err.Clear End If Application.Visible = True ThisWorkbook.Close SaveChanges:=False Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'verhindert das Schließen übers Schließkreuz: If CloseMode = 0 Then Cancel = True End Sub

Private Sub Workbook_Open() Application.Visible = False Start.Show If Application.Wait(Now + TimeValue("0:00:5")) Then Application.Visible = True Unload Start End If ThisWorkbook.Saved = True End Sub

Private Sub Form_Load() Me.Show DoEvents On Error GoTo ERRHANDLER Set xlApp = CreateObject("Excel.Application") If Err.Number > 0 Then MsgBox "Microsoft(R) Excel ist nicht installiert.", vbCritical, "fehlende Software" GoTo ENDE End If xlApp.Visible = False xlApp.Workbooks.Open FileName:=App.Path & "\Projekt.xls", Password:="123" If Err.Number > 0 Then MsgBox "Die Datei konnte nicht geöffnet werden!", vbCritical, "unerwarteter Fehler" End If ENDE: Set xlApp = Nothing End ERRHANDLER: MsgBox "Fehler " & Err.Number & vbLf & Err.Description, vbCritical, "unerwarteter Fehler" Set xlApp = Nothing End End Sub

Guten Morgen Matthias.
Sowas hab ich mir schon gedacht. Auch die Makrosicherheit von außen beeinflußen macht wenig
Sinn, wie mir heute auffällt. Dann hätten die das auch weglassen können. ;o)
Naja. Soweit sogut. Deine Idee hab ich umgesetzt, mein Startbildschirm läuft.
Doch nun ergibt sich ein etwas seltsamer Fehler:
Im ersten Tabellenblatt meiner Hauptmappe hab ich aus CommandButtons und Userforms mit Listboxen kleine Drop-Down-Menüs nachgebaut. Bei Klick auf den Button öffnet sich ein kleines
UserForm mit einer Listbox und ohne Titielleiste direkt unterhalb des Buttons.
Starte ich meine Hauptmappe direkt, ohne Start.xls, läuft alles problemlos.
Starte ich erst die Start.xls, dann bekomme ich nach Click auf einen der Drop-Down-Buttons
folgende Fehlermeldeung:
"Laufzeitfehler '429'
Objektherstellung durch AktivX-Komponente nicht möglich."
Der Clou: Nicht debuggen, sondern Fehlermeldung abbrechen, zweiter Versuch, plötzlich gehts.
ALso kann doch im Code kein Fehler sein, oder?
Chris

Beliebteste Forumthreads (12 Monate)

Ein Startbildschirm und seine Tücken...

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ein Startbildschirm und seine Tücken...

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread