Popup an bestimmten Datum

[MichaelS]

Werte Gemeinde,

bin auf der Suche nach einem Code, der mir an einem bestimmten Datum ein Popup Fenster öffnet.
Habe eine ExcelDatei die eigentlich permanent geöffnet ist

Jetzt möchte ich gern an bestimmten Tagen ein Popup geöffnet haben.

Geht so etwas??


BG
MichaelS

[SH95]

Hallo MichaelS,

so?

Code:

Private Sub Workbook_open()
If Date = "18.02.2020" Then
    MsgBox ("Was auch immer du willst")
End If
End Sub

Den Code musst du in "diese Arbeitsmappe" einfügen.


Gruß
Stefan

[MichaelS]

Hallo MichaelS,

so?

Code:

Private Sub Workbook_open()
If Date = "18.02.2020" Then
    MsgBox ("Was auch immer du willst")
End If
End Sub

Den Code musst du in "diese Arbeitsmappe" einfügen.


Gruß
Stefan

Hallo Stefan,

vielen Dank. Geht das auch mit mehreren Tagen?

Gruß MichaelS

[SH95]

Hallo MichaelS,

ja klar, dann kommts drauf an ob du an mehreren Tagen die gleiche MSGBox haben willst oder immer eine andere.

Jeden Tag eine andere:

Code:

Private Sub Workbook_open()
If Date = "18.02.2020" Then
    MsgBox ("Was auch immer du willst")
Elseif Date = "19.02.2020" then
    MsgBox("Text2")
End If
End Sub

Oder mehrere Tage für eine Box:

Code:

If Date = "18.02.2020" _
or Date = "19.02.2020" then
    MsgBox ("Was auch immer du willst")
End If

kann natürlich beliebig erweitert werden.

Gruß
Stefan

[MichaelS]

Vielen Dank für die schnellen Antworten.

:18:

[RPP63]

Habe eine ExcelDatei die eigentlich permanent geöffnet ist

Dann funktioniert der Code natürlich nicht!
(wobei eigentlich eigentlich unpräzise ist)

@SH95:Date mit einem String zu vergleichen, klappt nur lokalisiert!

[atilla]

Hallo,

ich stelle mir das so vor, dass Du eine Tabelle mit Geburtstagen oder Terminen hast.
Ich habe mich in meinem Beispiel für Geburtstage entschieden.

Angenommen in Spalte B der Tabelle3 stehen untereinander Daten.
Dann schaut folgender Code beim Öffnen der Datei nach ob eines der Daten dem heutigen Datum entspricht und gibt die Meldung aus:

Code:

Private Sub Workbook_Open()
   Dim i As Long
   Dim rngGebutstage As Range
   With Sheets("Tabelle3")       'in Tabelle3 stehen die Geburtstage
      Set rngGebutstage = .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row) 'in Tabelle3 stehen sie in Splate B ab Zeile 2
      i = Application.CountIf(rngGebutstage, Date)
      If i > 0 Then
         MsgBox "Heute gibt es " & i & " Geburtstag" & IIf(i = 1, "", "e") & ""
      End If
   End With
End Sub

Die Bereiche, die angepasst werden müssen, sind im Code kommentiert.