Anzeige Geburtstag

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Anzeige Geburtstag
von: Michael
Geschrieben am: 09.10.2003 08:56:44

Hallo Exel Freaks,

Habe eine Liste mit über 100 Namen mit Geb. Datum.
Möchte nun wenn eine Pers. Geb. hat diese Anzeigen.

Spalte A2 Datum =heute()
Spalte B2 Name
Spalte C2 Geb. Datum
Spalte A1 soll der Name angezeigt werden.

Kann mir jemand helfen wäre euch sehr Dankbar.

Gruß Michael

Bild


Betrifft: AW: Anzeige Geburtstag
von: Hajo_Zi
Geschrieben am: 09.10.2003 09:01:19

Hallo Michael

siehe Dir mal folgende Datei an

http://www.bert-koern.de/dateien/mitarbeiter_datum.xls



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: Anzeige Geburtstag
von: Willie
Geschrieben am: 09.10.2003 09:29:50

Hallo Michael Hajo war zwar schneller aber so kannst du es auch machen
Gruß
Willie



Sub GebAnzeige()
Datum = Format(Date, "dd.mm.")
iMax = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row + 1
For i = 2 To iMax
Vergleich = Left(Cells(i, 2).Value, 6)
If Datum = Vergleich Then
Name = Cells(i, 1).Value
GebDatum = Cells(i, 2).Value
MsgBox "Heute hat " & Name & " " & GebDatum & " Geburtstag"
 'Sheets("Tabelle2").Cells(i, 1).Value = Name
 'Sheets("Tabelle2").Cells(i, 2).Value = GebDatum
End If
Next
End Sub



Bild


Betrifft: AW: Anzeige Geburtstag
von: Michael
Geschrieben am: 09.10.2003 11:29:05

Hey Leute,
irgend wie komm ich nicht klar hab absolut keine Ahnung.
Schaut euch das ganze doch mal an.

https://www.herber.de/bbs/user/1353.xls

Gruß Michael


Bild


Betrifft: AW: Anzeige Geburtstag
von: Willie
Geschrieben am: 09.10.2003 11:44:20

Ich habe dir die Datei hochgeladen! Gruß Willie

https://www.herber.de/bbs/user/1354.xls


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Anzeige Geburtstag"