Gruppe
Funktion
Bereich
INDEX
Thema
Kofpzeilenwerte angekreuzter Zellen multiplizieren
Problem
Wie kann ich die Kopfzeilenwerte der mit einem Kreuz versehenen Zellen mit einem in der gleichen Zeile stehenden Multiplikator multiplizieren lassen?
Lösung
Formel: =INDEX(VERGLEICH("x";A2:F2);1)*G2
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