Office: (Office 2016) Wenn x0> 0; Wenn Zelle x1 in Index y > 0; Wenn Zelle x2 in Index y >0 etc.

Einen schönen guten Tag,

ich saß heute an einem Excelproblem, welches für mich bisher durch Internetsuche noch nicht beantwortet werden konnte. Deswegen habe ich mich in diesem Forum angemeldet um uU. Hilfe und Antwort von den Experten zu bekommen.

Ich habe einen Index, z.B.:


In diesem möchte ich zählen wenn x > 0 ist und weiter zählen wenn x1, die Zelle darunter, auch >0 ist, etc.. Bsp. in kleinerer Form:


Dies habe ich bislang mit der Formel gelöst:
=WENN(I67>0; (WENN(INDEX(I67:I71; 2)>0; (WENN(INDEX(I67:I71; 3)>0; (WENN(INDEX(I67:I71; 4)>0; 4; 3)); 2)); 1)); 0)

Für einen kleineren Index ist dies auch absolut kein Problem. Jedoch sind die Excel welche ich bearbeite meist in 5-6 stelligen Zeilenbereich und das händische Eintragen der Formeln dementsprechend keine Option.

Demnach wollte ich erfragen, ob es nicht eine elegante Lösung zu meinem kleinen Problem gibt.

Vielen lieben dank für die Hilfe und Zeit im vorraus,
kNOCKEYY

 

Habe euch auch nochmal eine Beispiel xlsx angehängt.

Grüße,
kNOCKEYY

 

Hallo,

ich habe dir in einem allgemeinen Codemodul eine benutzerdefiniert VBA-Funktion eingefügt. Wie sie zu verwenden ist, habe ich dir im Arbeitsblatt "Calc PROBLEM" im Bereich E4:E12 bzw. E15:M15 bzw. E21:G23 gezeigt (eingerahmte Zellbereiche).
Es handelt sich dabei um eine Matrixfunktion (deshalb die geschweiften Klammern).

Die Funktion ist ziemlich einfach gebaut, wie im Folgenden zu sehen ist:

Code:

Option Explicit

Function PositiveZählen(Rg As Range) As Variant
  Dim Anz As Long, PosAnz() As Long
  Dim I As Long, SZ As Byte
  With Application.Caller
    SZ = -(.Rows.Count > 1) * 2 - (.Columns.Count > 1)
  End With
  
  With Rg.Rows
     ReDim PosAnz(1 To .Count)
     Anz = 0
     For I = .Count To 1 Step -1
        If .Item(I).Value > 0 Then
          Anz = Anz + 1
        Else
          Anz = 0
        End If
        PosAnz(I) = Anz
     Next I
  End With
  Select Case SZ
    Case 1: PositiveZählen = PosAnz
    Case 2: PositiveZählen = WorksheetFunction.Transpose(PosAnz)
    Case 3: PositiveZählen = "Nur 1 Spalte oder 1 Zeile erlaubt!"
  End Select
End Function