Alter per VBA ausrechnen

Guten morgen,
also vorerst zu meinen VBA-Kenntnissen: ich bin grade dabei mir VBA anzueignen.
Ich bin jetzt auf folgendes Problem gestoßen.
In der Spalte I stehen bei mir Geburtsdaten im Format DD.MM.YYYY (über Zellen formatieren formatiert) vorher stehen noch einige Personenbezogene Daten, wie Name Vorname etc...
jetzt habe ich eine combo-box, aus der ich Vorname und Name auswählen kann. Ich möchte jetzt wenn ich auf den commandbutton klicke, das alter der Person in Jahren erfahren. Die Schleife, um die richtige Zelle zu finden ist bereist programmiert:
Dim i as Integer
Dim d as Date
i = 2
Do Until (Cells(i, 1).Value = cboName.Value And Cells(i, 2).Value = cboVname.Value) Or Cells(i, 1) = ""
i = i + 1
Loop
Weiterhin ist bereits die if-bedingung programmiert:
If Cells(i, 1).Value = cboName.Value And Cells(i, 2).Value = cboVname Then
soweit so gut,
jetzt fehlt mir leider der Ansatz, wie ich die Anweisung um das Alter auszurechnen programmiere....
LG
Caro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Alter_I() Dim lZeile As Long For lZeile = 2 To Range("I65536").End(xlUp).Row If IsDate(Range("I" & lZeile).Value) Then If (Month(Date) < Month(Range("I" & lZeile).Value)) Or _ (Month(Date) = Month(Range("I" & lZeile).Value) And _ Day(Range("I" & lZeile).Value) > Day(Date)) Then Range("J" & lZeile).Value = (Year(Date) - _ Year(Range("I" & lZeile).Value)) - 1 Else Range("J" & lZeile).Value = Year(Date) - _ Year(Range("I" & lZeile).Value) End If End If Next lZeile End Sub

Hallo Caro,
das beigefügte Makro tut's, aber die Geburtsdaten stehen in Spalte A ab Zeile 2 - das musst du anpassen. Das Alter wird nach B eingetragen.
Public


Sub Alter()
Dim lZeile As Long
For lZeile = 2 To Range("A65536").End(xlUp).Row
If IsDate(Range("A" & lZeile).Value) Then
If Month(Date) < Month(Range("A" & lZeile).Value) Then
Range("B" & lZeile).Value = (Year(Date) - _
Year(Range("A" & lZeile).Value)) - 1
ElseIf Month(Date) = Month(Range("A" & lZeile).Value) And _
Day(Range("A" & lZeile).Value) > Day(Date) Then
Range("B" & lZeile).Value = (Year(Date) - _
Year(Range("A" & lZeile).Value)) - 1
Else
Range("B" & lZeile).Value = Year(Date) - _
Year(Range("A" & lZeile).Value)
End If
End If
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alter per VBA ausrechnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread