popup bij bepaald tekst

[schuurar]

Beste forum,

Is het mogelijk(vast wel) om bij een bepaalde tekst een popup scherm te krijgen met een herinnering?
Het gaat om 3 woorden (vakantie,snipperdag,ziek)

Bedankt alvast.

 

[Niels28]

Wanneer wil je die pop-up dan?
in welke cel staan die woorden?


Niels

 

[schuurar]

Jullie zijn snel ;-)

@Sevo: voor windows.
@Niels28: ze kunnen in het hele formulier voor komen.

 

[Niels28]

Bedoel je met formulier een userform of exceltabblad?

Niels

 

[Niels28]

Bij verandering van een cel in kolom A tot Z.
achter desbetreffend blad zetten.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
If InStr("vakantie|snipperdag|ziek", Lcase(Target)) > 0 Then
MsgBox "Hier staat " & Target.Value
End If
End If
End Sub

Niels

 

[schuurar]

Dit werkt al prima voor mij!!!
Hele top bedankt voor de zeer snele reactie !!!

 

[schuurar]

Toch nog een vraagje.
Hij werkt nu alleen op het tabblad waar de code in staat.
Als ik de code in "thisWookbook" plaats doet hij het niet.
Is het mogelijk dat hij op elk tabblad werkt zonder dat hij overal ingevuld moet worden ??

 

[Niels28]

achter thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
If InStr("vakantie|snipperdag|ziek", LCase(Target)) > 0 Then
MsgBox "Hier staat " & Target.Value
End If
End If
End Sub

Niels

 

[schuurar]

Top dit is hem!!
Bedankt.