Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

KGRÖSSTE über VBA eintragen

Gruppe

KGRÖSSTE

Problem

Wie kann ich die ersten 10 Ränge der Werte aus Spalte A über VBA in das Arbeitsblatt eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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