Hajo's Excelzeiten mit einer umfangreiche Beispielsammlung zum kostenfreien Download. 
			Sowohl Formellösungen als auch Beispiele für die Makroprogrammierung in Excel.
Home
VBA Beispiele
ohne VBA Beispiele
fremde Dateien

  VBA
  ohne VBA
  UserForm

Hinweise zu Excel ab Version 2007
Übersicht Downloads
Bilder
Kontakt
Favoriten
Mein Heim-Forum
Tools Tabelle Forum
Impressum
Copyright
Disclaimer

letzte Bearbeitung 08.11.17

Valid XHTML 1.0 Strict CSS ist valide!
Bing
Suchmaschinenoptimierung mit Ranking-Hits


' **************************************************************
'  Modul:  Zeit_3_Sekunden  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub MsgBox3Sekunden()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
'   von Franz W Herber.de
'   Verweis auf Microsoft Scripting Runtime
    Dim WsShell
    Dim intText As Integer
    Set WsShell = CreateObject("WScript.Shell")
    intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen. Variante 1", 3, "Automatisch...")
    ' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub

Sub MsgZeit()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
'   von K.Rola L.Vira
'   kein Verweis notwendig
    Const bytZeit As Byte = 3
    Dim objWSH As Object, intMSG As Integer
    Set objWSH = CreateObject("WScript.Shell")
    intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden! Variante 2" & Space(10), bytZeit, "gebe bekannt...")
    Set objWSH = Nothing
End Sub


Code eingefügt mit: Excel Code Jeanie, angepasst an XHTML