Eine Serie Zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heinz,
mit Excel-Standardfunktionen ist das nur mit mehreren Hilfsspalten möglich. Ich empfehle deshalb eine benutzerdefinierte Funktion.
Gruß
Franz
'Erstellt unter Excel 2010 'Benutzerdefinierte Funktionen in einem allgemeinen Modul Function ZaehleSerie(Bereich As Range, Wert As Variant) As Long 'FormelBeispiel: =ZaehleSerie($N$4:$N$270;3) Dim WertAlt, lngzeile As Long, SerieNeu As Long For lngzeile = 1 To Bereich.Rows.Count If Bereich.Cells(lngzeile, 1) "" Then If Wert = Bereich.Cells(lngzeile, 1) Then If WertAlt = Wert Then SerieNeu = SerieNeu + 1 Else SerieNeu = 1 End If If SerieNeu > ZaehleSerie Then ZaehleSerie = SerieNeu End If WertAlt = Bereich.Cells(lngzeile, 1) End If Next End Function Function ZaehleSerie2(Bereich As Range, Wert1, Wert2, WertStop) As Long 'FormelBeispiel: =ZaehleSerie2($N$4:$N$270;3;1;0) Dim WertAlt, lngzeile As Long, SerieNeu As Long For lngzeile = 1 To Bereich.Rows.Count If Bereich.Cells(lngzeile, 1) "" Then If Wert2 = Bereich.Cells(lngzeile, 1) Then If WertAlt = Wert1 Then SerieNeu = SerieNeu + 1 If SerieNeu > ZaehleSerie2 Then ZaehleSerie2 = SerieNeu End If ElseIf WertStop = Bereich.Cells(lngzeile, 1) Then SerieNeu = 0 End If WertAlt = Bereich.Cells(lngzeile, 1) End If Next End Function

Hallo Heinz,
Soll die Anzahl von 3-1-Folgen gezählt werden, bis die 0 das 1. Mal kommt, oder soll die größte Anzahl von 3-1-Serien Serien jeweils zwischen den 0-Werten ermittelt werden?
Gruß
Franz
Folgende Anpassung der Funktion erlaubt Optional beide Varianten, Standardmäßig wird bis zum 1.Stopp-Wert gezählt.

Function ZaehleSerie2(Bereich As Range, Wert1, Wert2, WertStop, _
Optional bolErste As Boolean = True) As Long
'FormelBeispiel: =ZaehleSerie2($N$4:$N$270;3;1;0)
'wenn bolErste = True dann wird bis zum 1. StopWert gezählt
'wenn bolErste = False dann wird die Max.-Anzahl zwischen den StopWerten ermittelt
Dim WertAlt, lngzeile As Long, SerieNeu As Long
For lngzeile = 1 To Bereich.Rows.Count
If Bereich.Cells(lngzeile, 1)  "" Then
If Wert2 = Bereich.Cells(lngzeile, 1) Then
If WertAlt = Wert1 Then
SerieNeu = SerieNeu + 1
If SerieNeu > ZaehleSerie2 Then ZaehleSerie2 = SerieNeu
End If
ElseIf WertStop = Bereich.Cells(lngzeile, 1) Then
If bolErste = True Then
Exit Function
Else
SerieNeu = 0
End If
End If
WertAlt = Bereich.Cells(lngzeile, 1)
End If
Next
End Function

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich
O4	=ZaehleSerie(N4:N270;3)

	Q
3	Serie hintereinand von Siegen
4	4
5
6	Serie hintereinand Ungeschlagen
7	1
8
9	Serie hintereinand von Unentschieden
10	2
11
12	Serie hintereinand von Niederlagen
13	3

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread