VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kofpzeilenwerte angekreuzter Zellen multiplizieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX