excel geburtstagsliste

computer-dummy · 21.01.2004, 10:26

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

Deftones · 21.01.2004, 10:42

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

mfg
deftones

(V)uh · 21.01.2004, 19:35

=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

computer-dummy · 21.01.2004, 19:56

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?

Deftones · 21.01.2004, 20:26

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

mfg
deftones

jak · 21.01.2004, 20:49

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

computer-dummy · 21.01.2004, 21:12

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

jak · 22.01.2004, 13:24

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

computer-dummy · 22.01.2004, 13:39

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

Sesa_Mina · 22.01.2004, 15:13

Das ganze geht auch ohne VBA.

Mit Bedingten Formatierungen.

21.01.2004, 10:26	#1
computer-dummy Veteran Registriert seit: 16.02.2003 Beiträge: 242	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

21.01.2004, 10:42	#2
Deftones Master Registriert seit: 26.11.2002 Alter: 47 Beiträge: 572	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 mfg deftones ____________________________________ Es gibt nix gutes außer man tut es nur die Toten wissen wie der Krieg war ! Fatal error: Maximum execution time exceeded in mod_glaskugel at line 23

21.01.2004, 19:35	#3
(V)uh Veteran Registriert seit: 14.06.2001 Alter: 55 Beiträge: 385	=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 ____________________________________ Diese signatur ist optional !

21.01.2004, 20:26	#5
Deftones Master Registriert seit: 26.11.2002 Alter: 47 Beiträge: 572	also ich habe noch nie ein pop up fenster in einem excel dokument gesehn !? mfg deftones ____________________________________ Es gibt nix gutes außer man tut es nur die Toten wissen wie der Krieg war ! Fatal error: Maximum execution time exceeded in mod_glaskugel at line 23

21.01.2004, 20:49	#6
jak Inventar Registriert seit: 13.06.2001 Beiträge: 1.830	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 ____________________________________ Join the DNRC \| Godwin\'s Law (thx@stona) Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing. \"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)

21.01.2004, 19:56	#4
computer-dummy Veteran Registriert seit: 16.02.2003 Beiträge: 242	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?

21.01.2004, 21:12	#7
computer-dummy Veteran Registriert seit: 16.02.2003 Beiträge: 242	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

22.01.2004, 13:24	#8
jak Inventar Registriert seit: 13.06.2001 Beiträge: 1.830	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 ____________________________________ Join the DNRC \| Godwin\'s Law (thx@stona) Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing. \"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)

22.01.2004, 13:39	#9
computer-dummy Veteran Registriert seit: 16.02.2003 Beiträge: 242	vielen dank... ...jak sieht toll aus und funktioniert auch so. wieder was dazugelernt. lg joe

22.01.2004, 15:13	#10
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	Das ganze geht auch ohne VBA. Mit Bedingten Formatierungen. ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln