ich habe eine Reihe mit 4x Datum (A1:A4) und die dazugehörigen Werte (B1:B4). Ich will nun den Wert der zum kleinsten Datum gehört in Textbox 1 schreiben, den Wert des zweitkleinsten Datums in Textbox 2 usw.
Weiß jemand, wie ich das machen kann?
TextBox1 = CDate(WorksheetFunction.Small(Range("A1:A4"), 1))
TextBox2 = CDate(WorksheetFunction.Small(Range("A1:A4"), 2))
TextBox3 = CDate(WorksheetFunction.Small(Range("A1:A4"), 3))
TextBox4 = CDate(WorksheetFunction.Small(Range("A1:A4"), 4))
ggf noch per Schleife.