Hallo zusammen,

ich habe folgendes Problem:

Ich möchte in einer Spalte die Anzahl der gleichbleibenden Zeichen/Zahlen zählen bis zur ersten Änderung.

Beispiel: Hier möchte ich in jeder Zelle in Spalte B zählen wie oft von dieser Zeile aus abwärts gesehen in Spalte A "yes" steht bis zur ersten Veränderung:

Spalte A:   Spalte B:

yes            4

yes            3

yes            2

yes            1

no               0

no              0

yes            2

yes             1

no              0

Aktuell habe ich das Problem mit einer Matrixformel gelöst und die gewünschten Ergebnisse werden angezeigt.

Leider kann ich hierduch aber aufgrund der riesigen Datenmengen, welche ich auswerten möchte nur 10% auswerten. Wenn ich die Matrixformel erweitern möchte sagt mir Excel, dass ich meinen Arbeitsspeicher erweitern soll und sturzt danach ab :/

Gibt es einen eleganten weg dieses Problem mit VBA zu lösen? Ich bin in VBA leider nicht so gut und habe noch keine Lösung gefunden.

Durch meine Recherchen im Internet habe ich bis jetzt nur folgenden Ansatz gefunden:

Sub dural()
    v = Range("A2").Value
    For i = 3 To Rows.Count
        If Cells(i, 1).Value <> v Then
            MsgBox CStr(i - 2)
            Exit Sub
        End If
    Next i
End Sub

Quelle: https://stackoverflow.com/questions/37553403/vba-counting-until-value-changes?rq=1

Den Code kann ich in VBA einfügen und dieser funktioniert auch. Ich weiß nur leider nicht wie ich diesen Code auf mein Problem anwenden kann, sodass das Ergebnis in jeder Zelle in Spalte B neu berechnet wird und das die Berechnung von jeder neuen Zelle in Spalte A abwärst berechnet wird.

Habt ihr Ideen wie ich das Problem lösen kann? Über jegliche Antworten bin ich sehr sehr dankbar!

Vielen Dank für Eure Hilfe.

Mit besten Grüßen