Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Popup an bestimmten Datum
#1
Question 
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
Antwortento top
#2
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
Antwortento top
#3
(18.02.2020, 09:51)SH95 schrieb: 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
Antwortento top
#4
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
[-] Folgende(r) 1 Benutzer sagt Danke an SH95 für diesen Beitrag:
  • MichaelS
Antwortento top
#5
Vielen Dank für die schnellen Antworten.

18
Antwortento top
#6
(18.02.2020, 09:44)MichaelS schrieb: 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!
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antwortento top
#7
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.
Gruß Atilla
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste