im Sheet 'Test' benutze ich bisher folgenden Code:
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
Dazu habe ich 2 Fragen:
1. Wie kann ich da noch eine vbInformation (siehe: MsgBox "Es gibt ungelesene Nachrichten !", vbInformation, "Bitte beachten...") einbauen?
2. Diese MsgBox soll nur einmalig während einer Sitzung erscheinen - klickt der User also auf NEIN, so soll erst beim erneuten Öffnen der Datei wieder der Hinweis kommen.
Gibt es dazu ein anderes Ereignis als Worksheet_Activate()?
Zwar hatte ich die Idee mit einem Counter (Reset sollte beim Schliessen bzw. Öffnen der datei erfolgen), aber kriege das nicht realisiert... :-(
Ich freue mich auf eure Ideen.
ciao Dirk