Re: Geburstags-Mailer
24.08.2002 08:55:19
Malexander
Hallo, Clemens.Ist eigentlich ganz einfach:
Nimm in einem Workbook die Tabelle1
Wähle A1 aus, gehe in das "Namenfeld" oben links und schreib da "Geburtstagsspalte" (aber ohne die Tüttel) rein.
Dann laß dieses Worksheet als das aktive.
Mach ein Modul auf und kopiere meinen Code hier rein.
Nun wechselst Du wieder in das Blatt und gibst in die erste Spalte ab Zeile 2 Datümer ein, die am besten vor, im und nach dem
aktuellen Monat liegen.
Nimm mal 30 Datümer und 5 davon, die in dem aktuellen Monat liegen.
Dann wechselst Du in das Modul und läßt es stepwise laufen und beobachtest, was passiert.
Denke bitte daran: wenn der aktuelle Tag nicht der 1. des Monats ist, dann muß Du diesen Tag in folgenden Statement eintragen
: if (Day(Date) = 1) Then
Also statt 1 eben 24
Immer wenn ein Datum innerhalb des aktuellen Monats liegt, bleibt die Zeile erhalten; andernfalls wird sie ausgeblendet.
Dort wo steht: ' Jetzt drucken
druckst Du einfach mal die Tabelle1 und Du wirst sehen, daß nur die Datümer gedruckt werden, die im aktuellen Monat liegen.
Gehst Du jetzt ein Statement weiter, dann werden alle übrigen Datümer wieder eingeblendet.
Alles klar ?
MAlexander