MsgBox nur einmalig

Private Sub Worksheet_Activate() If Sheets("Tipps").Cells(36, 5) "keine" Then If MsgBox("Es gibt ungelesene Nachrichten! Jetzt lesen?", vbExclamation + vbYesNo) = vbYes _ Then Sheets("Neues").Activate Else ' Was soll bei NEIN passieren? Ggf. Counter+1 u. somit MsgBox "deaktivieren"... End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
zu 1:
Das soll ja dazu dienen, den Charakter des Message deutlich zu machen. Wenn da jetzt die blaue Information-Blase neben dem Warndreieck steht, dazu vielleicht noch das rote critical-Symbol, dann wäre die MsgBox zwar schön bunt, aber auch ganz schön unübersichtlich...
zu 2:
Dann führen wir einfach eine projektweit gültige boolsche Variable ein, die wir überprüfen, bevor die MsgBox angezeigt wird. Standardmäßig ist diese Variable false, und wenn die MsgBox einmal gezeigt wurde, dann setzen wir sie auf true.
Dazu kopierst Du ein ein Stadardmodul diese Zeile:
Public a As Boolean
Deinen Code änderst Du wie folgt:


Private Sub Worksheet_Activate()
If Sheets("Tipps").Cells(36, 5)  "keine" And a = False Then
a = True
If MsgBox("Es gibt ungelesene Nachrichten!  Jetzt lesen?", vbExclamation + vbYesNo) = vbYes _
Then
Sheets("Neues").Activate
Else
' Was soll bei NEIN passieren? Ggf. Counter+1 u. somit MsgBox "deaktivieren"...
End If
End If
End Sub

Ungetestet, sollte aber funkionieren.
Schönen Gruß,
Andi

Hi,
1.
den Titel kannst Du schon ändern, und zwar genau so wie Du es im ersten posting selbst geschrieben hast. Das Information-Symbol kannst Du allerdings nicht anzeigen im Titel.
2.
Sollte eigentlich funktionieren. Die einzelne Zeile gehört in ein Modul, dass Du im VB-Editor über Einfügen - Modul erzeugen kannst. So wie ich Dich verstehe, hast Du genau das gemacht.
Getestet habe ich das ganze mit folgendem Activate-Ereignis im Modul der Tabelle:


Private Sub Worksheet_Activate()
If Range("A1")  10 And a = False Then
a = True
MsgBox "x"
End If
End Sub

Wenn jetzt also in A1 nicht 10 steht und die entsprechende Tabelle angeklickt wird, dann kommt die MsgBox. Allerdings nur einmal; bis die Mappe geschlossen und wieder geöffnet wird, dann kommt die Meldung wieder genau einmal.
So sollte es doch sein, oder?
Schönen Gruß,
Andi

Private Sub Worksheet_Activate() If Sheets("Tipps").Range("e36") "keine" And a = False Then a = True If MsgBox("Es gibt ungelesene Nachrichten! Jetzt lesen?", vbExclamation + vbYesNo) = vbYes _ Then Sheets("Neues").Activate Else ' Was soll bei NEIN passieren? End If End If End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread