Address .Small
10.12.2019 11:44:24
Klaus
Ich will eine Zeile mit Daten (Pl. Datum) nach ihrer größe sortieren (funtioniert). Nun brauch ich aber noch zusätzlich die Zelle 2 rechts von den Daten. Leider ergibt es immer einen Fehler. Ich glaube die .Match Funktion würde auch nicht funktionieren, da die Daten teilweise die gleichen seien können. Habt ihr vllt eine Idee, wie ich das lösen kann?
Sub Test()
D1 = CDate(WorksheetFunction.Small(Range("A4, B4, C4"), 1))
D2 = CDate(WorksheetFunction.Small(Range("A4, B4, C4"), 2))
D3 = CDate(WorksheetFunction.Small(Range("A4, B4, C4"), 3))
K1 = D1.Offset(1, 0)
K2 = D2.Offset(1, 0)
K3 = D3.Offset(1, 0)
End Sub
Liebe Grüße
Klaus