excel geburtstagsliste
 

hallo alle
es geht um eine liste, die neben namen auch das jeweilige geburtsdatum dabei hat. nun möcht ich gern wissen, wie ich es anstelle, dass ich beim öffnen der liste sofort sehe, wer aller in diesem monat geburtstag hat. geht das über ein pop up fenster, oder wenigstens farbig unterlegt? es sind etwa 2000 beschäftigte.
vielen dank im voraus

hallo

soweit ich mich errinnern kann kannst du sowas mit der "wenn" funktion machen

"=Wenn(prüfung;Dann_Wert;Sonst_Wert)"

naja die leute die in jetzigen Monat geburtstag haben kannst dann farbig hinterlegen !!

hoffe das stimmt so bin mir leider nicht ganz sicher :confused:

mfg
deftones

=WENN(MONAT(B2) = MONAT(JETZT());"Geb";"")

B2 ist die zelle mit dem datumswert (hier GebDatum). Die formel schreibt entweder "Geb" oder Nüx in die zelle rein ... schaut dann so aus.

Name GebDatum
Horst 01.01.1974 Geb
Bernd 01.02.1966
Otto 05.01.1956 Geb
Fritz 08.01.1978 Geb
Konrad 05.04.1955

hallo
klingen echt gut eure tips. aber wenn auch auf dieser ellenlange liste, diese tage markierte werden, so ist es doch nicht einfach, alle zu finden. gibts eine möglichkeit, z.b. mittels pop up fenster, daran zu erinnern?

also ich habe noch nie ein pop up fenster in einem excel dokument gesehn !?

mfg
deftones

Das wäre dann wohl ein Fall für VBA.
Ist schon länger her das ich etwas damit gemacht habe, aber die Vorgehensweise wäre ungefähr so:
Alle Zellen durchgehen, und wenn die Month's identisch sind in eine ListBox dazuschreiben.

Es ist nicht die sauberste Variante aber eine brauchbare (schöner wäre "for each a in b ... Next a"

Private Sub CommandButton1_Click()
Dim datum, name, i As Integer
i = 1

Do
datum = Worksheets("Tabelle1").Cells(i, 2).Value
name = Worksheets("Tabelle1").Cells(i, 1).Value
If (Month(datum) = Month(Now())) Then ListBox1.AddItem (name)
i = i + 1
Loop While (datum <> "")

End Sub

Siehe Attachment

Jak

hallo ...
 

...jak
vielen dank für deinen tip. hab die datei runtergeladen, aber außer geburtsdaten seh ich nichts. muß ich irgendetwas eingeben?
lg joe

Nächster Versuch.
Ich hab vergessen, ein Modul dafür zu erstellen. Bei der alten Datei kannst du einfach den VBA editor öffnen (Alt-F11) und dort UserForm1 ausführen.

Jak

vielen dank...
 

...jak
sieht toll aus und funktioniert auch so. wieder was dazugelernt.
lg joe

Das ganze geht auch ohne VBA.

Mit Bedingten Formatierungen.

Und jetzt zeigst du mir noch wie du mit der bedingten Formatierung ein Fenster aufmachst...

Nichts für ungut, aber er wollte eine Liste mit allen die Geburtstag haben.

Jak

@Jak:

Nimm's nicht tragisch ;)

Jak

Es ist sehr wohl einfach alle zu finden.

Sortier die Liste einfach mal nach dem Datumsfeld und voilla.

Alle Geburtstage stehen schön geordnet untereinander.

Kann man nur nach dem Monat sortieren? Ich glaube doch, daß das Geburtsdatum im Format TT-MM-JJ(JJ) ist. Wenn man da nach Datum sortiert kommt irgendetwas raus.

Jak

Wenn du nach Datum sortierst dann kommt es in ansteigender Reihenfolge raus. Dem PC ist es dabei egal was für ein AnzeigeFormat das Datum hat. Intern ist es eine Zahl.


Somit hast du dann:

1.1.
2.1.
3.1.
...
31.1.
1.2.
2.2.
...

und alle Geburtstagskinder stehen somit untereinander.

Was ich meine, ist, daß er nicht 1.1. hat sondern 1.1.1956
Und dann hat man plötzlich
31.12.1949
2.7.1950
9.8.1950
3.1.1951
...

Jak

Tschuldigung, dass ich mich nochmal einmische :lol: will ja nicht stören *gg*
Aber wenn er meine formel nimmt und dann nach dieser spalte alph sortiert stehen alle zeilen mit "geb" oben. Da muss er weder ein makro starten, noch dann ein fenster wegklicken und die farben bleiben auch immer die selben :D

Er muss nur mehr richtig sortieren können ;)

Nur mal so, weil mir grad fad war und ich was konstruktives leisten wollte. Falls ich stören sollte genügt ein "halt doch die klappe" und ich geb ruh :lol:

vielen dank für eure tips. vielleicht sollte man das geburtsjahr in eine eigene spalte verschieben, dann wärs sich möglich alles zu reihen.
schönes we
lg joe