Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: aufeinanderfolgende gleiche Datensätze zählen

aufeinanderfolgende gleiche Datensätze zählen
21.03.2018 18:55:11
JuliOn
Hallo zusammen,
ich habe ein Problem bei der Aufbereitung von Daten mit Excel.
Und zwar habe ich eine Spalte in der unterschiedliche (sich wiederholende) Varianten aufgelistet sind. Das Ziel ist es, aufeinanderfolgende gleiche Zellen zu zählen.
Das Bild zeigt den Ausgangszustand und den Zielzustand in einem Minimalbeispiel:
Userbild
Kann mir hierbei jemand auf die Sprünge helfen?
Vielen Dank im Voraus!
JuliOn
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: aufeinanderfolgende gleiche Datensätze zählen
21.03.2018 19:11:47
Daniel
HI
hab dir mal ein Beispiel gemacht, wie du das Problem mit einer Hilfsspalte lösen kannst.
https://www.herber.de/bbs/user/120581.xlsx
Gruß Daniel
AW: aufeinanderfolgende gleiche Datensätze zählen
21.03.2018 19:49:50
JuliOn
Vielen Dank Daniel! Klappt super bei mir :-)
Wahnsinn, wie schnell du dir das aus dem Ärmel gezaubert hast!
Anzeige
AW: aufeinanderfolgende gleiche Datensätze zählen
21.03.2018 19:33:10
KlausF
Hi JuliOn,
Ausgangssituation ist Spalte A, Ziel sind Spalten C und D
Sub VariantenAddieren() Dim Variante As Variant Dim i As Long Dim a As Long Dim lastRow As Long Dim lngAnz As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row lngAnz = 1 a = 2 Application.ScreenUpdating = False For i = 2 To lastRow Variante = Range("A" & i) Range("C" & a) = Variante Start: If Range("A" & i) = Range("A" & i + 1) Then lngAnz = lngAnz + 1 i = i + 1 GoTo Start End If Range("D" & a) = lngAnz lngAnz = 1 a = a + 1 Next i End Sub Ist nicht so elegant aber bei mir funktioniert es
Gruß
Klaus
Anzeige
AW: aufeinanderfolgende gleiche Datensätze zählen
21.03.2018 19:53:32
JuliOn
Hallo Klaus,
vielen herzlichen Dank für deine Hilfe. Werde zwar vorerst bei der (VBA-freien) Lösung von Daniel bleiben. Kann aber gut sein, dass ich das noch öfters brauchen werde, dann steige ich eventuell auf diese Lösung ohne Hilfsspalte um :-)
Viele Grüße
JuliOn
AW: aufeinanderfolgende gleiche Datensätze zählen
21.03.2018 22:00:29
KlausF
Hallo JuliOn,
kein Problem – und danke für Dein Feedback.
Gruß
Klaus
Anzeige
AW: mit nur zwei Matrixfunktion(alität)sformel ...
22.03.2018 08:10:11
...
Hallo JuliOn,
... ohne jegliche Hilfsspalten möglich. Die Matrixfunktion(alität)sformeln benötigen auch keines spez. Formelabschlusses wie klassische Matrixformeln
 ABCD
1Variante VarianteAnzahl
2Var1 Var15
3Var1 Var21
4Var1 Var32
5Var1 Var24
6Var1 Var12
7Var2   
8Var3   
9Var3   
10Var2   
11Var2   
12Var2   
13Var2   
14Var1   
15Var1   
16    

Formeln der Tabelle
ZelleFormel
C2=WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;ZEILE(A$2:A$99)/(A$2:A$99<>A$1:A$98)/(A$2:A$99<>""); ZEILE(A1))); "")
D2=WENN(C2="";"";SUMME(INDEX(AGGREGAT(15;6;ZEILE(A$2:A$99)/(A$2:A$99<>A$1:A$98); ZEILE(A1:A2))*{-1;1};)))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Formeln einfach weit genug nach unten ziehend kopieren.
Gruß Werner
.. , - ...
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aufeinanderfolgende gleiche Datensätze zählen in Excel


Schritt-für-Schritt-Anleitung

Um aufeinanderfolgende gleiche Datensätze in Excel zu zählen, kannst du eine Hilfsspalte verwenden oder eine VBA-Lösung einsetzen. Hier sind die Schritte für die Hilfsspalte:

  1. Daten vorbereiten: Lege deine Daten in Spalte A ab.
  2. Hilfsspalten erstellen: Füge in Spalte C die aufeinanderfolgende Variante ein.
  3. Zählformel eingeben: In Spalte D kannst du mit der Formel =WENN(A2=A1;D1+1;1) die aufeinanderfolgende Anzahl zählen. Ziehe die Formel nach unten, um sie auf alle relevanten Zellen anzuwenden.
  4. Ergebnisse überprüfen: Vergewissere dich, dass die Zählung korrekt ist.

Wenn du eine VBA-Lösung bevorzugst, findest du hier ein einfaches Skript:

Sub VariantenAddieren()
    Dim Variante As Variant
    Dim i As Long
    Dim a As Long
    Dim lastRow As Long
    Dim lngAnz As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    lngAnz = 1
    a = 2
    Application.ScreenUpdating = False
    For i = 2 To lastRow
        Variante = Range("A" & i)
        Range("C" & a) = Variante
        Start:
        If Range("A" & i) = Range("A" & i + 1) Then
            lngAnz = lngAnz + 1
            i = i + 1
            GoTo Start
        End If
        Range("D" & a) = lngAnz
        lngAnz = 1
        a = a + 1
    Next i
End Sub

Häufige Fehler und Lösungen

  • Fehlerhafte Zählung: Wenn die Zählung nicht korrekt ist, überprüfe, ob es Leerzellen in der Spalte gibt, die die Formel unterbrechen könnten.
  • Formel nicht aktualisiert: Stelle sicher, dass die Zelle mit der Formel nach unten gezogen wurde, um alle relevanten Daten zu erfassen.
  • VBA läuft nicht: Wenn das Skript nicht funktioniert, prüfe, ob die Makros in Excel aktiviert sind.

Alternative Methoden

Neben der Hilfsspalte und VBA kannst du auch Matrixformeln verwenden, um aufeinanderfolgende gleiche Datensätze zu zählen, ohne Hilfsspalten zu nutzen. Ein Beispiel für eine solche Formel könnte wie folgt aussehen:

=SUMME(WENN(A2:A99=A1:A98;1;0))

Um diese Matrixformel einzugeben, drücke Strg + Shift + Enter.


Praktische Beispiele

Angenommen, du hast die folgende Liste in Spalte A:

A
Var1
Var1
Var2
Var1
Var1
Var1
Var3

In diesem Fall würde die Zählung in Spalte D die Werte 2, 1, 4 und 1 zurückgeben. Diese Methode ist besonders nützlich, wenn du regelmäßig mit aufeinanderfolgendem Daten arbeitest.


Tipps für Profis

  • Verwendung von dynamischen Bereichsnamen: Erstelle dynamische Bereichsnamen, um deine Formeln flexibler zu gestalten.
  • Automatisierung: Kombiniere VBA mit Ereignisprozeduren, um die Zählung automatisch bei Datenänderungen zu aktualisieren.
  • Datenvisualisierung: Nutze die Zählungen in Diagrammen, um Trends und Muster visuell darzustellen.

FAQ: Häufige Fragen

1. Wie zähle ich aufeinanderfolgende Datensätze ohne VBA?
Du kannst die Zählung mit einer Kombination aus Hilfsspalten und Formeln durchführen, wie in der Schritt-für-Schritt-Anleitung beschrieben.

2. Funktioniert das auch in Excel 365?
Ja, die beschriebenen Methoden funktionieren in allen gängigen Excel-Versionen, einschließlich Excel 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige