MsgBox automatisch schließen

Hallo zusammen,
ich habe folgendes Problem:
Ich hab eine Messagebox programmiert, welche erscheint wenn ein Wert in Spalte J negativ wird (Daten werden aus anderem Programm ständig aktualisiert).
Um dieses Makro ständig laufen zulassen, habe ich eine ApplicationOnTime hinzugefügt, sodass das Makro ständig neu geprüft wird (alle 15Sec).
Jetzt möchte ich, dass die Messagebox nicht alle 15 Sekunden wieder neu erscheint, bei negativem Wert, sondern nach einmaliger Bestätigung nicht wieder auftaucht. Erst wenn ein weiterer Wert negatv wird, soll wieder eine MsgBox auftauchen.
Hier mein Code:

Sub Makro2()
Dim i As Range
Dim j As Range
For Each i In Range("J:J")
If i  "" Then
If i.Value

Ich hoffe auf eure Unterstützung!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MSGBOX_autom() Dim WsShell, intText As Integer Set WsShell = CreateObject("WScript.Shell") intText = WsShell.Popup("Hinweis wird automatisch geschlossen!!!", 5, "Huhu ...", 2 + 48) ' Die 5 in der letzten Zeile gibt die Dauer der Öffnung an. End Sub

Option Explicit Sub Makro3() Dim t As Long ' nur um irgendwelche Werte zu haben For t = 1 To 20: Range("J" & t) = Round(Rnd() * (10) - 1, 0): Next t = Range("J" & Rows.Count).End(xlUp).Row ' MsgBox WorksheetFunction.CountIf(Range("J1:J" & t), " 0 Then MsgBox "AUSFÜHRKURS ERREICHT" End If Application.OnTime Now + TimeValue("00:00:15"), "Makro3" End Sub

Sub Makro2() Static arrAlt Dim arrNeu Dim i As Long Dim check As Boolean arrNeu = ActiveSheet.UsedRange.Columns(10).Value If IsEmpty(arrAlt) Then ReDim arrAlt(1 To UBound(arrNeu, 1), 1 To UBound(arrNeu, 2)) For i = 1 To UBound(arrNeu, 1) If IsNumeric(arrNeu(i, 1)) Then If arrNeu(i, 1) UBound(arrAlt, 1) Then check = True Exit For ElseIf arrAlt(i, 1) = "" Then check = True Exit For ElseIf arrAlt(i, 1) > 0 Then check = True Exit For End If End If End If Next arrAlt = arrNeu If check Then MsgBox "AUSFÜHRKURS ERREICHT" 'Application.OnTime Now + TimeValue("00:00:15"), "Makro2" End Sub

Nochmals vielen Dank, aber auch jetzt funktioniert es noch nicht so wie ich es brauche.
Ich habe das ApplicationOntime wieder aktiviert (hab es aber als If-Block gelassen, sodass nur eine MsgBox erscheint!). Nun prüft er im ersten Durchlauf und zeigt mir eine Messagebox (´bei drei negativen Wert). Ein paar Sekunden später prüft er erneut und obwohl keine Veränderung stattgefunden hat, spuckt er nun drei Messageboxes aus.
Vllt liegt es an meinem anderen Code.
Im Modul habe ich momentan folgendes stehen:
Sub Makro4()
Static arrAlt
Dim arrNeu
Dim i As Long
Dim check As Boolean
arrNeu = ActiveSheet.UsedRange.Columns(10).Value
If IsEmpty(arrAlt) Then ReDim arrAlt(1 To UBound(arrNeu, 1), 1 To UBound(arrNeu, 2))
For i = 1 To UBound(arrNeu, 1)
If IsNumeric(arrNeu(i, 1)) Then
If arrNeu(i, 1) If i > UBound(arrAlt, 1) Then
check = True
Exit For
ElseIf arrAlt(i, 1) = "" Then
check = True
Exit For
ElseIf arrAlt(i, 1) > 0 Then
check = True
Exit For
End If
End If
End If
Next
arrAlt = arrNeu
If check Then MsgBox "AUSFÜHRKURS ERREICHT"
Application.OnTime Now + TimeValue("00:00:15"), "Makro2"
End Sub Zusätzlich steht in Tabelle 1:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=TimeValue("00:00:10"), _
Procedure:="Makro2", Schedule:=False
End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "Makro2"
End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox automatisch schließen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread