Office: MsgBox mit Geburtsdatum +-5 Tagen

Hallo Forum,

ich bastele an einem schon behandelten Problem mit der Anzeige von nahen kommenden und gewesenen Geburtstagen in einer MsgBox-Ausgabe.

Dazu habe ich den im Forum bekannten Code verwendet und etwas umgewandelt. Er funktioniert für tagesaktuelle Anzeigen!

Leider schaffe ich es derzeit nicht, den Code so abzuwandeln, das mir zusätzlich die Geburtstage der letzten und kommenden 4 Tage mit angezeigt werden.
Alle meine Überlegungen enden derzeit darin, das die Teilung des Datums im Code dazu führen würde, das Probleme bei Monatsübergängen auftreten.

Ich hoffe auf Eure Hilfe... Danke!
Andreas

Code:

Erklärung:
4 = Geburtsdatum
3 = Vorname
2 = Nachname
5 = Errechnetes Alter am Jahresende

:)

 

... von Jahreswechseln ganz zu schweigen.

Hier wäre eine Datenbanklösung, die man auch in Excel nachbauen kann:
Geburtstagsliste sortiert mit Altersberechnung und Hervorhebung von runden Geburtstagen

 

Hallo,

ich will dir ja nicht die ganze Freude am Programmieren nehmen, darum hier ein Ansatz, der aber den entscheidenden Punkt gelöst hat.

 

Hi, Andreas,

schau dir mal das Beispiel Geburtstage einfärben auf meiner HP, Seite Beispiele m. VBA an - vielleicht hilft es dir weiter.

 

Hallo Karin,

ich habe mich für deine Variante entschieden. Diese habe ich soweit verstanden. Den Ansatz von GMG-CC leider nicht ;-)

Aber ich habe noch zwei kleine Probleme:
1. Ich bekomme die Umsetzung mit den vier Tagen im Voraus nicht hin. Theoretisch denke ich, das ich eine Zeile unter dem +4 auch noch einmal +4 einfüge. Aber das funktioniert nicht. Dann bekomme ich nur noch einen Namen meiner Liste angezeigt, obwohl ich mehrere (im Test) angezeigt bekommen müsste. Lasse ich die zweite +4 weg, werden mir alle angezeigt die bis zu 4 Tage zurück liegen. Setze ich sie an eine andere Stelle (zB hinter Day) bekomme ich ne Fehlermeldung. Ich habe herumprobiert, verstehe aber nicht wie ich wahrscheinlich "> Date" ändern muss.

Code:

Meine zweite Frage:
In diesem und in einigen weiteren Codes findet sich oft "Sheets("Personal- und Stammdaten")".
Kann ich dafür nicht eine Konstante benennen und dann nur den Platzhalter einfügen?

In etwa so:
Dim wsPUS as Worksheet
wsPUS = Sheets("Personal- und Stammdaten")

Vielen Dank für die Hilfe,
beste Grüße,
Andreas


Ach, und noch ne dritte:
Ich möchte nach dem Namen noch das Alter einfügen. Das bekomme ich technisch soweit hin. Es hapert aber am Alter selbst. Dies wird in einer Zelle gleich hinter dem Datum berechnet und angezeigt.
Alle Versuche meinerseits mit Value lieferten bisher aber keine korrekten Ergebnisse und ich weiß nicht woran es liegt. Was ich bisher gelesen habe lese ich mit Value den angezeigten Wert aus! Oder doch nicht?

 

Hi Andreas,

zu Frage 1 - ändere die Codezeile im Workbook_Open:
Code:

und die Codezeile im Worksheet_Change:
Code:

Zu Frage 2 - da du (richtiger Weise) die Variable als Worksheet(objekt) deklarierst, musst du sie über Set füllen, also:
Code:

 

Hatta gemacht. Funktioniert!

*cool.gif* Danke Karin

Hast Du noch meine dritte Frage gesehen? *upps

 

Hi Andreas,

ich nehme an, die 3. Frage hast du ergänzt, nachdem ich meinen vorhergehenden Beitrag geschreiben habe - aus diesem Grund konnte ich sie natürlich nicht sehen.
Allerdings kann ich daraus das eigentliche Problem nicht ableiten, da du nicht genau beschreibst, worin es besteht und was "Es hapert aber am Alter selbst" bedeutet, wenn das Alter doch schon in der Zelle steht.

 

Moin,

ja, du hast recht. Ich hab's später ergänzt.

Also, in meiner Tabelle stehen
B = Nachname
C = Vorname
D = Geb. Datum
E = Alter zum Jahresende errechnet aus 31.12.akt.Jahr-Geb.Datum

Auf dem Tabellenblatt wird das Alter korrekt errechnet.
Wenn ich nun das errechnete Alter aus der Spalte E (=5) abgreifen will mit
Code:

dann bekomme ich zwar vierstellige Zahlen, die vermutlich auch Jahreszahlen sind, aber die passen absolut nicht zum errechneten Alter...

 

Hi Andreas,

in welcher Form ist denn die Zelle formatiert? Dieses Format müsstest du dann auch für die Anzeige verwenden - so auf die Art:

Code:

 

Ja, Danke. Ein bisschen herumprobiert bis ich das richtige Format gefunden habe, aber jetzt wird das richtige Alter angezeigt.

Vielen Dank, Karin!!!! *mrcool