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
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
(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
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
Vielen Dank für die schnellen Antworten.
:18:
(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!
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.