PDA

Vollständige Version anzeigen : Monatsende per Warnmeldung


Zorro217
19.07.2006, 08:42
Guten Morgen zusammen,

ich habe ein Excel-Frage, bei der ich einfach nicht weiter komme.

Ich habe eine einfache Tabelle. Jeweils am Monatsende (also 31.Juli, dann wieder am 31.August, usw.) möchte ich - nach Möglichkeit in Form einer Message-Box oder Info-Box - den Hinweis von Excel erhalten, dass das Monatsende erreicht ist.

Es soll also immer am letzten Tag des Monats ein Pop-Up-Fenster aufgehen, in dem z.B. drin steht: "Monatsende. Bitte verschicken Sie nun diese Datei per E-Mail".

Kann mir jemand hierbei vielleicht weiter helfen?

Bereits im Vorraus schönen Dank für die Hilfe!

MfG

Zorro217

myfake
19.07.2006, 09:26
Hallo Zorro,

schau Dir mal diesen Code an:

Als Workbook_Open Ereignis ...

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> Workbook_Open()
&nbsp;
<span class="TOKEN">Dim</span> dtDatum <span class="TOKEN">As</span> Date
<span class="TOKEN">Dim</span> EDatum <span class="TOKEN">As</span> Date
&nbsp;
dtDatum = Date
&nbsp;
EDatum = LetzterTagImMonat(dtDatum)
&nbsp;
<span class="TOKEN">If</span> EDatum = dtDatum <span class="TOKEN">Then</span>
MsgBox &quot;Monatsende&quot;
<span class="TOKEN">Else</span>
MsgBox &quot;Weiter geht's&quot;
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Hier einfach die beiden MsgBoxen an die eigenen Bedürfnisse anpassen ;)


Und als "normales" Modul:
<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Public Function</span> LetzterTagImMonat(dtDatum <span class="TOKEN">As</span> Date) <span class="TOKEN">As</span> Date
&nbsp;
LetzterTagImMonat = DateSerial(Year(dtDatum), Month(dtDatum) + 1, 0)
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

cu
myfake

Zorro217
19.07.2006, 09:46
Hi myfake,

schönen Dank. Das scheint soweit zu klappen (zumindest die msgbox mit "Weiter geht's"). Den Rest kann ich leider so nicht testen, weil ich unsere Systemzeit als "normaler User" nicht umstellen kann...

Somit muß ich wohl auf das Monatsende warten :-)