Zählen doppelter Werte in einer Sequenz – für Fußballergebnisse

Question

Ich habe derzeit eine Wertespalte wie die folgende, in der die Ergebnisse von Fußballspielen aufgelistet sind.

Lost
Lost
Lost
Won
Drew
Drew
Won
Won

Mithilfe dieser Formel konnte ich berechnen, wo eine Sequenz wiederholt wird. In der obigen Liste gibt es also drei „Lost“-Sequenzen hintereinander.

=IF(A2=A1,B1+1,1)

Ich möchte jedoch berechnen, wo der Wert entweder „Unentschieden“ oder „Gewonnen“ ist (und so die Anzahl der Zeilen anzeigen, ohne dass „Verloren“ erscheint). Ist dies möglich?

Danke

Answer 1

Hier ist ein Modulunterelement, das die Spalte A durchsucht, bis es auf eine leere Zelle stößt, und den längsten nicht „verlorenen“ Streifen in Zelle B1 druckt.

Sub CountNonLoss()

Dim nonloss As Integer
Dim LongestStreak As Integer
Dim Val
Dim streak As New Collection
nonloss = 0
LongestStreak = 0

Range("A1").Select

  Do Until IsEmpty(ActiveCell)
    If ActiveCell.Value <> "Lost" Then
       nonloss = nonloss + 1
    Else
       streak.Add nonloss
       nonloss = 0
    End If
  ActiveCell.Offset(1, 0).Select
  Loop

  For Each Val In streak
    If Val > LongestStreak Then
       LongestStreak = Val
    End If
  Next Val

Range("B1").Value = LongestStreak
End Sub