Gruppe
Funktion
Problem
Wie kann ich die Kopfzeilenwerte der mit einem Kreuz versehenen Zellen mit einem in der gleichen Zeile stehenden Multiplikator multiplizieren 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