Nächstes Datum aus Liste auslesen
18.05.2005 20:53:46
Rüdiger
bei folgendem Problem komme ich nicht weiter:
ich möchte aus einer Spalte (B) das Datum herausgelesen haben, das dem Datum
in Zelle C1 entspricht oder als nächstes folgt.
Die Formel (die ich auch in diesem Forum gefunden habe)
=KGRÖSSTE(B:B;ZÄHLENWENN(B:B;">="&C1))
funktioniert einwandfrei. Nur möchte ich das Problem mit VBA lösen - möglichst ohne eine HIlfsspalte. Und da fängt das Problem an.
Da zwei "worksheetfunctions" benötigt werden, habe ich die Formel zunächst aufgeteilt:
r = Application.WorksheetFunction.CountIf(Range("b:b"), ">=" & Cells(1, 3).Value)
zur Ermittlung des Rangs des gesuchten Wertes und
s = Application.WorksheetFunction.Large(Range("b:b"), r)
zur Ermittlung des gesuchten Datums.
Seltsamerweise (?) hat r immer den Wert 1 und somit liefert s immer die größte Zahl aus dem Bereich. Kann mir jemand verraten wo mein Fehler liegt (und wie ich ihn beheben kann?)
Vielen Dank!
Rüdiger