Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Runde Geburtstage

Runde Geburtstage
10.01.2007 18:19:00
ABO
Hallo Excel Profis
Ich müste das nachfolgende Makro ändern!
Funktioniert jedoch leider nicht so wie ich das will!
Es müssen folgende Runde Geburtstage angezeigt werden:
50 Jahre
60 Jahre
65 Jahre
70 Jahre
75 Jahre
80 Jahre
85 Jahre
ab 90 Jahre jährlich
bei dem nachfolgendem Makro sind jedoch alle Runden Geb. bis 60 Jahren in 10er Schritten. Ab 60 Jahren in 5er Schritten und ab 80 Jahren in 1er Schritten.

Function GebRund(wert)
If Not IsDate(wert) Or IsNull(wert) Then
GebRund = Null
Else
tmp = GebAlter(wert)
If tmp >= 60 Then
tmp2 = tmp Mod 5
Else
tmp2 = tmp Mod 10
End If
If tmp > 80 Then
tmp2 = tmp Mod 1
End If
If tmp2 = 0 Then
GebRund = "X"
Else
GebRund = ""
End If
End If
End Function

Kann mir einer bei meinem Problem helfen?
Im voraus vielen Dank!!!
ABO

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Runde Geburtstage
10.01.2007 18:58:08
Ramses
Hallo
probiers mal
Function GebRund(gebDate As Range) As Variant
    If Not IsDate(gebDate.Value) Or IsNull(gebDate.Value) Then
        GebRund = Null
        Exit Function
    End If
    Select Case Year(Now) - Year(gebDate.Value)
        Case Is < 50
            GebRund = "-"
        Case 50, 60, 70, 75, 80, 85, 90
            GebRund = Year(Now) - Year(gebDate.Value)
        Case Is > 90
            GebRund = Year(gebDate.Value)
    End Select
End Function

Gruss Rainer
Anzeige
AW: Runde Geburtstage
10.01.2007 19:07:35
ABO
Hallo Rainer
grundsätzlich nicht schlecht!
hätte jedoch wieder gerne das ein "X" bei den runden Geburtstagen gemacht wird(statt den Geb. 50, 60, 70, 75, 80, 85, 90 ,größer 90 Geburts-Jahr).
Gruß ABO
AW: Runde Geburtstage
10.01.2007 19:10:02
Ramses
Hallo
dann ändere doch einfach die beiden Zeilen
GebRund = Year(Now) - Year(gebDate.Value)
in
GebRund = "x"
Gruss Rainer
AW: Runde Geburtstage
10.01.2007 19:16:48
ABO
Super, Danke!!
Hast mir sehr geholfen!
:-) Gruß ABO

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige