1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel VBA -> zeitliches Fenster

Discussion in 'Office-Programme' started by Angel-HRO, Jun 11, 2002.

Thread Status:
Not open for further replies.
  1. Angel-HRO

    Angel-HRO Megabyte

    Ich möchte beim Öffnen eines Excel Dokumentes für ca 5 Sekunden eine MsgBox einblenden, die entweder per Klick oder automatisch nach den 5 Sekunden verschwindet. Lässt sich das irgendwie realisieren?

    Danke schopn
     
    Angel-HRO, Jun 11, 2002
    #1
  2. Angel-HRO

    Angel-HRO Megabyte

    Klasse,
    vielen Dank. Funzt wunderbar

    Gruß
    Andre
     
    Angel-HRO, Jun 17, 2002
    #2
  3. Cerveau

    Cerveau ROM

    Hallo Angel-HRO,

    Mit einer Userform ist das möglich.
    Zuerst eine neue Userform erstellen und in TestForm umbenennen, dann folgenden code eingeben(F7 drücken):
    Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "CloseForm"
    End Sub
    Nun ein neues Modul erstellen und folgenden code eingeben:
    Sub CloseForm()
    Unload TestForm
    End Sub

    Sub OpenForm()
    TestForm.Show
    End Sub

    Zum Schluss in Arbeitsmappe_öffnen diesen code:
    Private Sub Workbook_Open()
    Call OpenForm
    End Sub

    Die Namen können nach belieben geändert werden.

    Falls interesse kann ich dir eine Beispieldatei schicken.

    PS:ich benutze ein englisches Excel , kann dir also nicht sagen wie die deutschen Texte heissen.

    Cerveau
     
    Cerveau, Jun 13, 2002
    #3
Thread Status:
Not open for further replies.

Share This Page