Gruppe
Funktion
Problem
Wie kann ich die ersten 10 Ränge der Werte aus Spalte A über VBA in das Arbeitsblatt eintragen lassen?
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