Range in Schleife ändern
11.12.2019 11:54:09
TomatenAugen
Sub Test()
Dim i As Long
Dim rng As Range
Dim A As String
Dim B As String
Dim C As String
For i = 1 To 5
rng = "Cells(i,9),Cells(i,12),Cells(i,15)"
Set A = CDate(WorksheetFunction.Small(Range(rng), 1))
Set B = CDate(WorksheetFunction.Small(Range(rng), 2))
Set C = CDate(WorksheetFunction.Small(Range(rng), 3))
Next
End Sub