Sub DuplikateRaus()
Dim rngDel As Range, rngC As Range
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If Application.CountIf(Range(Cells(2, 1), rngC), rngC.Value) > 1 Then
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
Next
If Not rngDel Is Nothing Then rngDel.Delete shift:=xlUp
'für ganze Zeile:
' If Not rngDel Is Nothing Then rngDel.EntireRow.Delete shift:=xlUp
End Sub
Sub Spezialfilter_und_SummeWenn()
Columns("A:A").Select
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B9"), Unique:=True
Range("B9").Activate
Do Until ActiveCell.Offset(0, -1).Value = ""
ActiveCell.FormulaLocal = "=ZÄHLENWENN(A:A;" & ActiveCell.Offset(0, -1).Address & ")"
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Sub DuplikateRaus()
Dim rngDel As Range, rngC As Range
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
rngC.Offset(, 1) = Application.CountIf(Columns(1), rngC.Value)
If Application.CountIf(Range(Cells(2, 1), rngC), rngC.Value) > 1 Then
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
Next
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete shift:=xlUp
End Sub
Daten vorbereiten: Stelle sicher, dass deine Daten in Spalte A stehen. Beispiel: 6-stellige Zahlen wie 925938.
Doppelte entfernen: Um die doppelten Werte zu entfernen, kannst du den Spezialfilter verwenden. Gehe zu Daten > Filter > Spezialfilter und wähle die Option „Einmalige Einträge kopieren“. Wähle als Ziel die Zelle B1.
Häufigkeit zählen:
=ZÄHLENWENN(A:A; A2)Ergebnisse anzeigen: In Spalte B wird nun angezeigt, wie oft jeder Wert aus Spalte A vorkommt.
Fehler: In Spalte B steht nur 0.
Fehler: Doppelte Werte werden nicht entfernt.
Pivot-Tabellen: Eine einfache Möglichkeit, die Häufigkeit von Werten zu analysieren, ist die Verwendung von Pivot-Tabellen. Gehe zu Einfügen > PivotTable, wähle deine Daten aus und ziehe das Feld in den Wertebereich.
VBA-Skripte: Nutze VBA (Visual Basic for Applications), um doppelten Werte zu entfernen und die Häufigkeit zu zählen. Ein einfaches Skript könnte so aussehen:
Sub ZähleWerte()
Dim rng As Range
For Each rng In Range("A2:A100")
rng.Offset(0, 1).Value = Application.WorksheetFunction.CountIf(Range("A:A"), rng.Value)
Next rng
End SubAngenommen, du hast folgende Werte in Spalte A:
| A |
|---|
| 925938 |
| 925938 |
| 123456 |
| 654321 |
| 123456 |
Nach der Anwendung der oben beschriebenen Schritte in Spalte B würde das Ergebnis wie folgt aussehen:
| A | B |
|---|---|
| 925938 | 2 |
| 925938 | 2 |
| 123456 | 2 |
| 654321 | 1 |
| 123456 | 2 |
Erweiterte Funktionen: Nutze die Funktion ZÄHLENWENNS, um mehrere Kriterien zu berücksichtigen, wenn du die Häufigkeit zählen möchtest.
Power BI: Wenn du mit Power BI arbeitest, kannst du die DAX-Funktion COUNTROWS verwenden, um zu zählen, wie oft ein Wert in einer Spalte vorkommt.
Automatisierung mit Makros: Wenn du oft die gleichen Berechnungen durchführst, kannst du deine Schritte als Makro aufzeichnen, um Zeit zu sparen.
1. Wie kann ich in Excel anzeigen, wie oft ein Wert vorkommt?
Du kannst die Funktion ZÄHLENWENN verwenden, um die Häufigkeit eines Wertes in einer Spalte zu zählen.
2. Gibt es eine Möglichkeit, die Häufigkeit von Wörtern in Zellen zu zählen?
Ja, mit der Funktion ZÄHLENWENN oder durch den Einsatz von VBA kannst du auch die Häufigkeit von Textwerten in Zellen zählen.