unregelmäßige Gruppen (und deren Elemente) zählen

Hallo, nun verbringe ich schon fast den ganzen Tag vor meinem Problem und ich komme einfach nicht weiter. Hoffentlich könnt ihr mir helfen.
Es geht um die Auswertung von Daten in einer Excel-Liste. Im Prinzip handelt es sich um eine Spalte (mit ca 210000 Zeilen). In der jeweiligen Zeile steht entweder die Zahl "1" oder die Zeile ist leer. Nun möchte ich feststellen, wieviele Gruppen mit gleichvielen aufeinanderfolgenden 1ern (jeweils von einer leeren Zelle bis zur nächsten) in der Spalte enthalten sind UND wieviele Elemente (1er) die jeweiligen Gruppen enthalten.
Die Spalte sieht im Prinzip so aus:
1
1
1
1
1
1
1
1
1
1
1
1
Hier wäre für dieses kleine Beispiel das Ergebnis, wie ich es mir wünschen würde:
1 Gruppe mit 3 Elementen
2 Gruppen mit 2 Elementen
1 Gruppe mit 5 Elementen
Wäre super, wenn mir jemand weiterhelfen könnte. Danke schonmal im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Alex,
eine mögliche Variante:
Option Explicit


Public Sub GruppenZaehlen()
Dim vTemp      As Variant
Dim lTemp      As Long
Dim vAnzahl()  As Variant
Dim lAnzahl    As Long
Dim lZeile     As Long
Dim lAnzEins   As Long
Dim bGefunden  As Boolean
Dim bErster    As Boolean
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
vTemp = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
For lTemp = 1 To UBound(vTemp, 1)
If vTemp(lTemp, 1) = "" Then
If Not bErster Then
ReDim Preserve vAnzahl(0 To 1, lAnzahl)
vAnzahl(0, 0) = vAnzahl(0, 0) + 1
vAnzahl(1, 0) = lAnzEins
lAnzEins = 0
bErster = True
Else
bGefunden = False
For lAnzahl = LBound(vAnzahl, 2) To UBound(vAnzahl, 2)
If vAnzahl(1, lAnzahl) = lAnzEins Then
vAnzahl(0, lAnzahl) = vAnzahl(0, lAnzahl) + 1
lAnzEins = 0
bGefunden = True
Exit For
End If
Next lAnzahl
If Not bGefunden Then
lAnzahl = UBound(vAnzahl, 2) + 1
ReDim Preserve vAnzahl(0 To 1, lAnzahl)
vAnzahl(0, lAnzahl) = 1
vAnzahl(1, lAnzahl) = lAnzEins
lAnzEins = 0
End If
End If
Else
If vTemp(lTemp, 1) = 1 Then lAnzEins = lAnzEins + 1
End If
Next lTemp
.Range("C1:F" & .Cells(Rows.Count, 3).End(xlUp).Row).ClearContents
lZeile = 1
For lAnzahl = LBound(vAnzahl, 2) To UBound(vAnzahl, 2)
.Range("C" & lZeile).Value = vAnzahl(0, lAnzahl)
.Range("D" & lZeile).Value = " Gruppen mit "
.Range("E" & lZeile).Value = vAnzahl(1, lAnzahl)
.Range("F" & lZeile).Value = " Elementen."
lZeile = lZeile + 1
Next lAnzahl
End With
End Sub

Gruß Peter

Beliebteste Forumthreads (12 Monate)

unregelmäßige Gruppen (und deren Elemente) zählen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread