Jedes Jahr soll eine Messagebox erscheinen

[dertommy]

Hallo!

Ich habe in Zelle B4 ein Datum stehen, z.B. 29.12.2016.
Nun möchte ich, dass jährlich ab 29.12.2017 eine Messagebox erscheint. Das nächste Mal soll sie am 29.12.2018 aufpoppen.
Ich hoffe, dass mir jemand helfen kann.

LG
Thomas

[RPP63]

Moin!
Was hast Du vor?
Soll das eine tägliche Erinnerung der aktuellen Geburtstage aus einer sehr langen MA-Liste werden?

Anhand Deiner spärlichen Beschreibung:

Private Sub Workbook_Open()
With Tabelle1.Range("B4")
  If Day(.Value) = Day(Date) And Month(.Value) = Month(Date) Then
    MsgBox "Watt? Schon wieder ein Jahr rum?"
  End With
End With
End Sub

Gruß Ralf

[dertommy]

Hallo!

Er tut leider nichts. Woran kann das liegen? Mein Tabellenblatt habe ich auch Tabelle1 benannt.

[RPP63]

Er tut leider nichts. Woran kann das liegen?

1. Das Jahr ist noch nicht rum  :21:
   
2. Du hast die Datei nicht gespeichert und neu geöffnet
   

Beantwortest Du auch meine Frage nach dem Sinn?
Ansonsten ist zielgerichtete Hilfe schwerlich möglich.

[Crazy Tom]

Hallo

na zumindest solltest du eine Fehlermeldung bekommen *sfg*

MfG Tom

[dertommy]

Ich habe die Datei gespeichert, neu geöffnet und als Ausgangsdatum in B4 habe ich den 28.11.2010 genommen. Leider kommt KEINE Messagebox.

[dertommy]

Ich bekomme überhaupt keine Fehlermeldung, er macht einfach nichts.

[RPP63]

na zumindest solltest du eine Fehlermeldung bekommen *sfg*

Moin Tom!  :19:
Klar, natürlich End If statt End With
@Tommy:
Bei mir schon, und nun?
Frage mal im Direktfenster folgendes ab:
?Application.EnableEvents
Jetzt frage ich schon zum dritten Mal nach dem eigentlichen Sinn!
Gruß Ralf

[Crazy Tom]

Hallo

den richtigen Blattnamen genommen?

Ralf hat den Codenamen der Tabelle genommen
also den Namen der im Projektexplorer auf der linken Seite vor der Klammer steht

MfG Tom

[dertommy]

In VBA steht Tabelle18 (Tabelle1).
Ich habe dann Tabelle18 statt Tabelle1 genommen. Funktioniert leider auch nicht.