Zeilen bis zum nächsten gesuchten Wert zählen

Hallo,

hat vielleicht jemand eine Idee, mit welcher Formel in Spalte C ich die Anzahl der Zeilen bis zum nächsten "x" in Spalte D zählen kann?

Das Ergebnis sollte dann so aussehen:

Wäre super, wenn mir da jemand einen Tipp geben könnte.

Vielen Dank

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 386274

Url: https://administrator.de/contentid/386274

Ausgedruckt am: 22.11.2024 um 03:11 Uhr

6 Kommentare

Neuester Kommentar

Hallo mreske,

so auf die schnelle

Sub AnzahlZeilenX()
    Dim i, n, j As Integer
       
    For i = 2 To 20
        If ActiveSheet.Cells(i, 2).Value = "" Then  
            n = n + 1
        Else
            For j = n To 0 Step -1
                ActiveSheet.Cells(i - j, 3).Value = j
            Next j
            n = 0
        End If
    Next i
End Sub

Ich habe es nicht überlesen, dass Du eine Formel für die Spalte "C" suchst

Moin,

die Zellen zwischen den zu zählenden Werten sind immer leer?

Liebe Grüße

Erik

Moin nochmal,

guck mal das hier an:

{=MIN(WENN(B2:B999<>"";ZEILE(2:999)))}

Das gibt Dir die Zeilennummer der nächsten ausgefüllten Zelle an. Also in den ersten sechs Zellen steht 8, in Zeile acht bis zehn dann eine 11 usw. Jetzt noch auslesen, wie die Zeilennummer der Zelle selbst ist und dann noch ein kleines Wenn, das prüft, ob die Zeilennummer identisch ist mit der eigenen, und es löpt.

hth

Erik

P.S.: Das ist eine Matrixformel. Also ohne {} schreiben und mit STRG-UMSCHALT-ENTER beenden. Dann kommen die geschweiften Klammern. Leider werden die Zellbezüge nicht automatisch angepasst.