Lebensalter farbig hinterlegen

Hallo Klaus

Noch ein Vorschlag 4, der - ähnlich wie mein ursprünglicher Vorschlag 3 - das Alter der Jubilare rot schreibt. Dazu wird kein besonderes Werteformat benötigt und auch keine Erweiterungen. Zudem ist der gewünschte Schriftstil für die Jubilare noch etwas flexibler einstellbar.

Setze in Zelle I1 eine "1" in "Standardschrift" und in Zelle J1 ebenfalls eine "1", aber in der gewünschten Farbe und im gewünschten Stil, also z.B. rot, fett, kursiv. Die folgende Formel in Zelle H1 berechnet alle Alter in Spalte G und setzt sie gleich in den richtigen Schriftstil:

VSuchlauf(F:F;LfdZelle≠'';0;SetzeZelle(Index(#I1:J1;1+Und(Rest(DJahr(LfdZelle;Heute);5)=0;
DJahr(LfdZelle;Heute)>60))*DJahr(LfdZelle;Heute);G:G;LfdIndex))

Falls deine Tabelle eine Kopfzeile hat, musst du die Bedingung des Suchlaufs ergänzen:
Und(LfdIndex>1;LfdZelle≠'') statt nur LfdZelle≠''.

Der Trick ist hier, dass das berechnete Alter mit dem Wert 1 aus einer der beiden Zellen I1 oder J1 multipliziert und dabei das Schriftformat des Multiplikators gleich mit übernommen wird. Wenn die Bedingung
Und(Rest(DJahr(LfdZelle;Heute);5)=0;DJahr(LfdZelle;Heute)>60)
nicht erfüllt ist, werden für die Multiplikation dank der Index-Funktion Wert und Stil aus Zelle I1 benützt, wenn die Bedingung erfüllt ist Wert und Stil aus Zelle J1.

Natürlich kannst du diese Bedingung für die Benützung des zweiten Formats auch ändern. Schliesslich wäre es auch möglich, mit weiteren Bedingungen noch andere Schriftstile zuzuordnen, die in weiteren Zellen des Index-Bereichs definiert sein müssten.

Gruss, Thomas

Hallo Klaus

Und dann noch eine völlig andere Idee: In einem zweiten Rechenblatt eine Liste der Jubilare erstellen. Das könnte für den Vorstand sehr praktisch sein.

Angenommen dein Rechenblatt heisse "Mitglieder" und du willst die Liste in einem zweiten Rechenblatt erstellen. Dort soll in Spalte A das Datum stehen, an welchem die Jubilare ihren Geburtstag feiern, in Spalte B ihr Alter und in den Spalten C:G die Daten, die in der Mitgliederliste in den Spalten A:E stehen, also z.B. Name, Vorname, Strasse mit Nr., PLZ und Ort, Telefonnummer (damit der Vorstand seinen Besuch anmelden kann).

Ich gehe davon aus, dass im Rechenblatt "Mitglieder" das Alter in Spalte G bereits berechnet wurde, z.B. durch eine der Formeln gemäss meinem Vorschlag 2.

Leg ein zweites Rechenblatt an. In diesem setzest du in Zelle J1 folgende Formel:

VSuchlauf(Mitglieder!$G:$G;Und(LfdZelle≠'';Rest(LfdZelle;5)=0;LfdZelle>60);0;
SetzeZelle(SetzeDatum(JahrVon(Heute);MonatVon(Index(Mitglieder!$F:$F;LfdIndex));
Wenn(Und(TagVon(Index(Mitglieder!$F:$F;LfdIndex))=29;MonatVon(Index(Mitglieder!$F:$F;LfdIndex))=2);28;
TagVon(Index(Mitglieder!$F:$F;LfdIndex))));A:A;LfdZähler)&
SetzeZelle(LfdZelle;B:B;LfdZähler)&
SetzeZelle(Index(Mitglieder!$A:$A;LfdIndex);C:C;LfdZähler)&
SetzeZelle(Index(Mitglieder!$B:$B;LfdIndex);D:D;LfdZähler)&
SetzeZelle(Index(Mitglieder!$C:$C;LfdIndex);E:E;LfdZähler)&
SetzeZelle(Index(Mitglieder!$D:$D;LfdIndex);F:F;LfdZähler)&
SetzeZelle(Index(Mitglieder!$E:$E;LfdIndex);G:G;LfdZähler))

Diese Formel sucht im Bereich "Mitglieder!G:G" die Jubilare gemäss deiner Definition. Ist ein Jubilar gefunden, so wird in Spalte A des zweiten Rechenblatts das Datum im aktuellen(!) Jahr eingesetzt, an welchem der Jubilar Geburtstag hat. Dabei wird ggf. der 29. Februar in den 28. geändert. In Spalte B wird das Alter übertragen und in die folgenden Spalten die Angaben aus dem Rechenblatt "Mitglieder", Spalten A:E.

Es kann zweckmässig sein, der Spalte A ein Werteformat "Mon 3. April" zuzuordnen, das wie folgt definiert ist: TTT" "T". "MMMM
So kann sich der Vorstand die Daten optimal vormerken.

Nun kannst du die Tabelle im zweiten Rechenblatt sortieren, entweder nach Spalte A aufsteigend, so dass der Vorstand gleich die Tage in der richtigen Reihenfolge sieht, an welchen er Jublilare besuchen soll. Oder du sortierst nach Spalte B absteigend und A aufsteigend. Dann erhältst du eine Liste der Jubilare mit dem ältesten Jubilar zuoberst und dem jüngsten zuunterst.

In meinem Buch findest du ab Seite 231 eine Anleitung, wie mit Suchläufen auch automatisch sortiert werden kann, bezeichnenderweise an einem Beispiel mit Jubilaren. Aber das wäre wohl für einen Verein den Luxus auf die Spitze getrieben.

Empfehlenswert könnte es übrigens sein, die Jubilare des kommenden Jahres jeweils vor Jahresende zu ermitteln, damit sicher keine Jubiläen von "Neujahrskindern" verpasst werden. Dann müsste obige Formel leicht abgeändert werden: "JahrVon(Heute)" müsste durch "JahrVon(Heute)+1" ersetzt werden und auch bei der Formel für die Altersermittlung wäre jeweils zum Ergebnis 1 zu addieren.

Empfehlenswert ist zudem, die Berechnung mit einem Knopf auszulösen und dabei zuerst die Tabelle im zweiten Rechenblatt zu löschen, damit keine "Jubilarleichen" vom letzten Jahr in der Tabelle stehen bleiben.

Gruss, Thomas