Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1940to1944
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
Inhaltsverzeichnis

Startbildschirm

Startbildschirm
17.08.2023 08:05:35
UdPa
Guten Morgen
Dank euch hab ich es zusammengebracht beim Start von Excel einen Begrüßungsbildschirm einzublenden.
mit diesem Code:
Private Sub Workbook_Open()
With Sheets("Startbildschirm")
.Visible = xlSheetVisible
.Select
Application.Wait Now + TimeSerial(0, 0, 3)
.Visible = xlSheetVeryHidden
End With
End Sub

jetzt meine Frage, ist es möglich das nach den 3 Sekunden ein "WEITER" Button eingeblendet wird, und erst wenn ich diesen gedrückt habe das der Startbildschirm verschwindet?

Vielen Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Startbildschirm
17.08.2023 08:08:59
MCO
Moin!

Das müsste doch schon fast richtig sein...

Private Sub Workbook_Open()

With Sheets("Startbildschirm")
.Visible = xlSheetVisible
.Select
Application.Wait Now + TimeSerial(0, 0, 3)
MsgBox "Weiter", vbOKOnly
.Visible = xlSheetVeryHidden
End With
End Sub


Gruß, MCO
AW: Startbildschirm
17.08.2023 08:21:29
UdPa
Danke Perfekt
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige