Registriert seit: 06.03.2019
Version(en): 365
18.02.2020, 10:44
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
Registriert seit: 12.02.2020
Version(en): 2016
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
Registriert seit: 06.03.2019
Version(en): 365
(18.02.2020, 10: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
Registriert seit: 12.02.2020
Version(en): 2016
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 Nutzer sagt Danke an SH95 für diesen Beitrag:1 Nutzer sagt Danke an SH95 für diesen Beitrag 28
• MichaelS
Registriert seit: 06.03.2019
Version(en): 365
Vielen Dank für die schnellen Antworten.
:18:
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
(18.02.2020, 10: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)
Registriert seit: 14.04.2014
Version(en): 2003, 2007
18.02.2020, 20:57
(Dieser Beitrag wurde zuletzt bearbeitet: 18.02.2020, 21:01 von 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.
Gruß Atilla