Thema Datum  Von Nutzer Rating
Antwort
24.11.2007 07:08:32 Stromberg
NotSolved
24.11.2007 09:55:53 jh
NotSolved
Rot Aw:Aw:Meldung mit OK bestätigen???
25.11.2007 07:41:13 Stromberg
NotSolved
25.11.2007 11:30:27 jh
NotSolved
25.11.2007 13:11:00 Stromberg
NotSolved
25.11.2007 16:51:42 Stromberg
NotSolved
25.11.2007 17:37:26 jh
NotSolved
25.11.2007 18:17:40 Stromberg
NotSolved
25.11.2007 18:49:19 jh
NotSolved
25.11.2007 19:20:08 Stromberg
NotSolved
25.11.2007 20:43:38 jh
NotSolved
25.11.2007 20:54:17 Stromberg
NotSolved
26.11.2007 08:33:28 jh
NotSolved
26.11.2007 19:45:57 Stromberg
NotSolved
27.11.2007 07:16:56 jh
NotSolved
27.11.2007 19:06:29 Stromberg
NotSolved
28.11.2007 08:44:56 jh
NotSolved
10.12.2007 05:53:17 Stromberg
NotSolved
25.11.2007 18:31:01 Stromberg
NotSolved

Ansicht des Beitrags:
Von:
Stromberg
Datum:
25.11.2007 07:41:13
Views:
683
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Meldung mit OK bestätigen???
jh schrieb am 24.11.2007 09:55:53:

Hallo,

zum periodischen Anzeigen der Meldung kannst du die OnTime-Methode
verwenden. Den Vorgang kannst du zweckmäßigerweise gleich in der Sub
Workbook_Open initialisieren:

Application.OnTime EarliestTime:=Now + TimeSerial(0, 5, 0), _
Procedure:="PopUp", Schedule:=True

Die Prozedur PopUp muss in einem Modul stehen:

Public Sub PopUp()
UserForm1.Show
End Sub

Für das Meldungsfenster musst du eine Userform und keine einfache
MsgBox verwenden, damit du beim Anklicken des OK-Buttons Code
ausführen kannst. Die Form muss nur ein Label und einen CommandButton
enthalten, in die Caption-Eigenschaft des Labels schreibst du die
auszugebende Meldung, und für den Button folgenden Code:

Private Sub CommandButton1_Click()
Dim strMsg As String, strFileName As String, intFileNr As Integer
UserForm1.Hide
strMsg = "Benutzer " & Application.UserName & " bestätigt um " _
& Format(Time, "hh:mm:ss") & " Uhr."
strFileName = ThisWorkbook.Path & "\log.txt"
intFileNr = FreeFile
Open strFileName For Append Shared As #intFileNr
Print #intFileNr, strMsg
Close #intFileNr
Application.OnTime EarliestTime:=Now + TimeSerial(0, 5, 0), _
Procedure:="PopUp", Schedule:=True
End Sub

Gruß


danke, klappt super!

gibt es noch eine möglichkeit das popup ohne excel gestartet zu haben öffnen zu lassen oder es aufjedenfall immer im vordergrund zu sehen wenn es sich öffnet?

gruss zurück

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.11.2007 07:08:32 Stromberg
NotSolved
24.11.2007 09:55:53 jh
NotSolved
Rot Aw:Aw:Meldung mit OK bestätigen???
25.11.2007 07:41:13 Stromberg
NotSolved
25.11.2007 11:30:27 jh
NotSolved
25.11.2007 13:11:00 Stromberg
NotSolved
25.11.2007 16:51:42 Stromberg
NotSolved
25.11.2007 17:37:26 jh
NotSolved
25.11.2007 18:17:40 Stromberg
NotSolved
25.11.2007 18:49:19 jh
NotSolved
25.11.2007 19:20:08 Stromberg
NotSolved
25.11.2007 20:43:38 jh
NotSolved
25.11.2007 20:54:17 Stromberg
NotSolved
26.11.2007 08:33:28 jh
NotSolved
26.11.2007 19:45:57 Stromberg
NotSolved
27.11.2007 07:16:56 jh
NotSolved
27.11.2007 19:06:29 Stromberg
NotSolved
28.11.2007 08:44:56 jh
NotSolved
10.12.2007 05:53:17 Stromberg
NotSolved
25.11.2007 18:31:01 Stromberg
NotSolved