Gruppe
DatumZeit
Problem
Die Geschwindigkeit per Stunde wird errechnet.
StandardModule: basMain
Sub KErmittelnWert()
Dim iCounter As Integer
For iCounter = 1 To 21
Cells(iCounter, 2) = Application.Large(Columns("A"), iCounter)
Next iCounter
End Sub
Sub KErmittelnFormel()
Dim iCounter As Integer
For iCounter = 1 To 21
Cells(iCounter, 2).Formula = "=LARGE(A:A," & iCounter & ")"
Next iCounter
End Sub