Datum, das am ehesten der Vorgabe entspricht?
Oliver
ich bräuchte mal wieder Eure Hilfe. Ich suche einen VBA Code, der es mir ermöglicht aus einer Reihe von Datumswerten das Datum heraus zu finden, das am dichtesten an einem Vorgabedatum dran ist. Allerdings nur das Datum, das kleiner ist, als das angegebene. Ich habe in Spalte B Datumswerte im Format "TT.MM.JJJJ" zu stehen. Nun gebe ich in einer TextBox ein Datum ein und es soll via VBA der Datumswert, der am dichtesten an dem Eingabedatum dran liegt, gefunden werden. Ziel ist es dann, nach diesem gefundenen Datum eine Leerzeile einzufügen.
Mal ein Beispiel. Ich habe in Spalte B folgende Datumswerte:
04.02.2006
02.02.2006
12.02.2006
03.02.2006
02.02.2006
01.02.2006
14.02.2006
06.02.2006
07.02.2006
Ich gebe in das Textfeld das Datum "13.02.2006" ein und es soll, obwohl ja die beiden Datumswerte "12.02.2006" und "14.02.2006", gleich dicht an dem "13.02.2006" dran sind, nach dem "12.02.2006" eine Leerzeile eingefügt werden. Ich habe auf Herbers Tutorial CD gestöbert, aber leider nur nachfolgenden Code gefunden.
Sub Datum_finden()
Dim Datum As Date
With Sheets("Buchungen")
Datum = CDate(Application.Large(.Columns(1), Application.CountIf(.Columns(1), ">=" & CLng(.Cells(1, 8)))))
End With
MsgBox Datum
End Sub
Leider findet dieser Code nur den Wert, des nächsten Datums zu dem eingegebenen Datum, nicht aber das Datum, was ich mir, wie in dem Beispiel erklärt, erhoffe.
Ich hoffe, ich konnte einigermaßen erklären, was ich erreichen möchte und das jemand einen Tipp für mich hat, denn ich weiß ehrlich gesagt nicht, wie ich das anfangen soll.
Danke Euch schon mal Vorab für die Hilfe,
Oliver