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.