Zeilen durchsuchen, bis auf erste Zeile vba
09.12.2003 20:33:24
Marc
ich weiß, dass ich das Thema weiter unten schon einmal angesprochen hatte, aber ich bin fast am verzweifeln.
Mit dem unten stehen code will ich aus einer Liste von Geburtsdaten den Ältesten herausfinden. Nun habe ich das Problem, dass in der ersten Zeile Geburtsdatum steht. Diese Zeile wird mit durchsucht und deswegen kommt immer die Meldung 'Typen unverträglich' Ich versuche nun schon die ganze Zeit das irgendwie mit einer If-Schleife in den Griff zu bekommen, aber irgendwie klappt das nicht.
Ich hoffe, dass mir hier jemand weiterhelfen kann.
Schon einmal vielen Dank,
Gruß
Mark
Function Ältester() As String
Dim z As Range
Dim rg As Range
Dim maxdiff As Long
Ältester = ""
maxdiff = 0
Set rg = Range("F2").CurrentRegion
For Each z In rg.Columns("F").Cells
d = z.Value
diff = DateDiff("d", z.Value, Now())
If diff > maxdiff Then
maxdiff = diff
Ältester = z.Address
End If
Next
End Function
Sub test()
Dim Adresse As String
Adresse = Ältester()
End Sub