Office: MsgBox in Vordergrund

Hallo,

Ich möchte ein Excel Pop-Up erscheinen lassen, wenn zu einer gewissen Uhrzeit eine Zelle "CHECK" anzeigt.

Mein Problem ist nun, dass die MsgBox zwar erscheint, sich aber nicht in den Vordergrund vor andere geöffnete Programme und Fenster schaltet. Wenn das Excel-Taskleistenfeld blinken würde, wäre das als Alternative auch ok.

Momentan versuche ich es mit folgenden Einstellungen, wie gesagt, ohne Erfolg (ich sehe die MsgBox nur, wenn ich in Excel arbeite):

Private Sub Worksheet_Calculate()

Dim rngCell As Range
Const cstrValue As String = "CHECK"

For Each rngCell In Range("S4:S65")

Select Case rngCell.Value
Case cstrValue
MsgBox "Please check if FFM for flight/truck in line " & rngCell.Row & " is set!", vbSystemModal, "CHECK"
Case Else
End Select
Next rngCell

End Sub


Anmerkung: Ich arbeite mit VB 6.3 und Excel 2002 SP3 unter WinXP.


Über Hinweise, die mir helfen könnten, wäre ich sehr dankbar!

Gruß

Daniel

:)

 

Hallo Daniel,

teste mal, ob sich mit AppActivate was tut:

Code:

 

Hallo,

Danke, es hat funktioniert!

Leider habe ich nun nur das Problem, dass Excel in der Taskleiste jedes Mal blinkt, wenn sich das Macro für die mitlaufende Uhrzeit an die Systemzeit anpasst.

Wie kann ich das verhindern?

Das PopUp kommt zur rechten Zeit, man denkt nur, es hätte sich was in der File geändert, wenn das Symbol in der Taskleiste blinkt.

Danke.

Daniel

 

Zur Aktualisierung der Uhrzeit habe ich folgendes Makro laufen:


rivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long


Private Const gsMacro As String = "Autpen"
Private gdNextTime As Double

Sub Autpen()
Application.DisplayStatusBar = True
Sheet1.Cells(1, 1).Calculate
Application.StatusBar = "Time: " & Format(Time, "hh:mm")
Call StartClock

End Sub


Sub StartClock()
gdNextTime = Now + TimeSerial(0, 0, 60)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
Application.StatusBar = False
End Sub

Sub Auto_Close()
Call StopClock
End Sub



Wie kann ich verhindern, dass es alle 60 Sek. Excel in der Taskleiste blinkt (wenn sich nur die Uhrzeit aktualisiert)?

Daniel

 

Hallo Daniel,

bei mir läuft es einwandfrei ohne Blinken zwischendurch. *confused.gif*