Lori hat eine Reihe von Zahlen in benachbarten Zellen, die entweder positiv oder negativ sein können. Sie möchte einen Weg finden, um die größte Folge negativer Zahlen im Bereich zu bestimmen. Wenn es also sieben negative Zahlen in einer Reihe in dieser Reihenfolge gäbe, hätte sie gerne eine Formel, die den Wert 7 zurückgibt.

Wir haben hoch und niedrig geschaut und können keine einzige Formel finden, die das tut, was gewünscht wird. Sie können dies jedoch mit einer Zwischenspalte tun. Wenn Sie beispielsweise Ihre Zahlen in Spalte A haben (beginnend mit A1), können Sie die folgende Formel in Zelle B1 einfügen:

=IF(A1<0,1,0)

Geben Sie dann in Zelle B2 Folgendes ein:

=IF(A2<0,B1+1,0)

Kopieren Sie dies in alle anderen Zellen in Spalte B, für die es in Spalte A einen Wert gibt. Dann können Sie in einer anderen Zelle (möglicherweise Zelle C1) die folgende Formel eingeben:

=MAX(B:B)

Dieser Wert repräsentiert die größte Anzahl aufeinanderfolgender negativer Werte in Spalte A.

Wenn Sie keine Zwischenspalte erstellen möchten, um die Antwort zu erhalten, können Sie eine benutzerdefinierte Funktion erstellen, die den Wert zurückgibt.

Function MaxNegSequence(rng As Range)

' search for the largest sequence ' of negative numbers in the range

Dim c As Range     Dim lCounter As Long     Dim lMaxCount As Long       Application.Volatile     lCounter = 0     lMaxCount = 0     On Error Resume Next     For Each c In rng.Cells         If c.Value < 0 Then             lCounter = lCounter + 1             If lCounter > lMaxCount Then                 lMaxCount = lCounter             End If         Else             lCounter = 0         End If     Next c       MaxNegSequence = lMaxCount End Function

Um die Funktion zu verwenden, fügen Sie einfach eine Formel ähnlich der folgenden in Ihr Arbeitsblatt ein:

= MaxNegSequence(A1:A512)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11105) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: