mreske
Goto Top

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:

2018-09-12_235050

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

Vielen Dank

Content-ID: 386274

Url: https://administrator.de/forum/zeilen-bis-zum-naechsten-gesuchten-wert-zaehlen-386274.html

Ausgedruckt am: 22.12.2024 um 18:12 Uhr

Gizmo23
Gizmo23 13.09.2018 aktualisiert um 07:42:17 Uhr
Goto Top
Hallo mreske,

so auf die schnelle face-wink

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 face-wink

VG
erikro
erikro 13.09.2018 um 08:08:11 Uhr
Goto Top
Moin,

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

Liebe Grüße

Erik
erikro
erikro 13.09.2018 aktualisiert um 08:44:47 Uhr
Goto Top
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.
137084
Lösung 137084 13.09.2018 aktualisiert um 10:12:29 Uhr
Goto Top
Schreibe einfach diese Formel
=VERGLEICH("x";$B2:$B$10000;0)-1
in Zelle C2 und ziehe sie nach unten, det is genuch.
mreske
mreske 13.09.2018 um 11:10:41 Uhr
Goto Top
Hallo ElMano,
funktioniert genau so, wie ich es wollte.
Tausend dank (auch für die anderen Lösungsvorschläge, die ich auch mal ausprobiere).

Gruß
erikro
erikro 13.09.2018 um 11:12:38 Uhr
Goto Top
Moin,

Zitat von @137084:

Schreibe einfach diese Formel
> =VERGLEICH("x";$B2:$B$10000;0)-1
> 
in Zelle C2 und ziehe sie nach unten, det is genuch.

Genial

Liebe Grüße

Erik