Jüngsten aus Geburtsdaten ermitteln mit Bedingung
17.12.2003 17:17:13
Steffen
ich hänge an folgendem Problem.
Ich habe eine Spalte, in der Geburtsdaten stehen.Dahinter ist eine Zeile, in dem ein einzelner Buchstabe steht. Nun möchte ich aus den Geburtsdaten das jüngste heraussuchen und zwar nur unter denen bei denen ein z.b. ein 'x' in der Spalte dahinter steht. wenn ich nur allgemein nach dem jüngsten suche geht es. ich bekomme das nur mit der Bedingung nciht hin. er läuft dann zwar nur die Zeilen durch, in denen auch ein 'x' steht, aber es wird nciht das jüngste gesucht, sondern einfach immer das nächste genommen.
Vielleicht kann mir jemand helfen und findet den Fehler.
Gruß
Steffen
Function alter()
With Sheets("Tabelle")
d = .Cells(2, 6).Value
For zeile = 2 To .Cells(65536, 6).End(xlUp).Row
If .Cells(zeile, 3).Value = "x" Then
If DateDiff("d", .Cells(zeile, 6).Value, ate) < mindiff Then
mindiff = DateDiff("d", .Cells(zeile, 6).Value, Date)
Jüngster = .Cells(zeile, 6).Address
End If
End If
Next
End With
Worksheets("Tabelle1").Select
TrefferZeile_Jüngster = Range(Jüngster).Row
TrefferSpalte_Jüngsterr = Range(Jüngster).Column
Treffer_Geburtsdatum = Cells(TrefferZeile_Jüngster, TrefferSpalte_Jüngster).Value '.Copy
MsgBox Jüngster
End
Function