Wie zählt man die Anzahl der Peaks in einer Datenspalte in Excel?
Angenommen, zwei Datenspalten befinden sich in Ihrem Arbeitsblatt, wie im linken Screenshot gezeigt. Wie zählen Sie die Anzahl der Peaks in Spalte B? Ein Zellwert (z. B. B3) gilt als Peak, wenn er gleichzeitig größer ist als die Werte in B2 und B4. Erfüllt er diese beiden Kriterien nicht, handelt es sich nicht um einen Peak. Dieser Artikel zeigt Ihnen, wie Sie alle Peaks in einer Datenspalte in Excel auflisten und zählen.
Anzahl der Peaks in einer Datenspalte in Excel zählen
Die folgende Formel ermöglicht es Ihnen, die Anzahl der Peaks in einer Datenspalte direkt in Excel zu ermitteln.
1. Wählen Sie eine leere Zelle aus, um das Ergebnis einzufügen, geben Sie die Formel =SUMMENPRODUKT(--(B3:B17>B2:B16);--(B3:B17>B4:B18)) in die Formel-Leiste ein und drücken Sie anschließend die Enter-Taste. Siehe Screenshot:
Hinweis: In der Formel bezieht sich B3:B17 auf den Bereich von der dritten Zelle (einschließlich der Überschriftszelle) bis zur vorletzten Zelle der Liste, B2:B16 auf den Bereich von der zweiten Zelle (einschließlich der Überschriftszelle) bis zur vorvorletzten Zelle und B4:B18 schließlich auf den Bereich von der vierten Zelle (einschließlich der Überschriftszelle) bis zur letzten Zelle der Liste. Passen Sie diese Bereiche bei Bedarf entsprechend an.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Alle Peaks in einem Streudiagramm markieren
Außerdem können Sie die Peaks einer Spalte ganz einfach identifizieren, indem Sie ein Streudiagramm erstellen und alle Peaks direkt im Diagramm markieren. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die Zelle C3 aus, die sich neben Zelle B3 befindet (dem zweiten Datenwert Ihrer Liste ohne Überschrift), geben Sie in die Formel-Leiste die Formel =IF(AND(B3>B2,B3>B4), "Peak",„") ein und drücken Sie die Enter-Taste. Ziehen Sie anschließend den Ausfüllknauf nach unten, um alle Peaks wie im folgenden Screenshot gezeigt zu markieren.
2. Wählen Sie die Spalten x und y aus und klicken Sie auf Einfügen > Punkt (X, Y) oder Blasendiagramm einfügen > Punktdiagramm mit horizontalen Linien und Markierungen, um ein Streudiagramm in das Arbeitsblatt einzufügen. Siehe Screenshot:
3. Drücken Sie die Alt+F11-Tasten, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
4. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Alle Peaks in einem Streudiagramm markieren
Sub CustomLabels()
Dim xCount As Long, I As Long
Dim xRg As Range, xCell As Range
Dim xChar As ChartObject
Dim xCharPoint As Point
On Error Resume Next
Set xRg = Range("C1")
Set xChar = ActiveSheet.ChartObjects("Chart 1")
If xChar Is Nothing Then Exit Sub
xChar.Activate
xCount = ActiveChart.SeriesCollection(1).Points.Count
For I = 1 To xCount
Set xCell = xRg(1).Offset(I, 0)
If xCell.Value <> "" Then
Set xCharPoint = ActiveChart.SeriesCollection(1).Points(I)
xCharPoint.ApplyDataLabels
xCharPoint.DataLabel.Text = xCell.Value
xCharPoint.DataLabel.Left = xCharPoint.DataLabel.Left - 15
xCharPoint.DataLabel.Top = xCharPoint.DataLabel.Top - 7
End If
Next
End SubHinweis: Im Code steht „Chart 1“ für den Namen des erstellten Streudiagramms und „C1“ für die erste Zelle der Hilfsspalte, die die Formelergebnisse aus Schritt 1 enthält. Passen Sie diese Angaben entsprechend Ihren Anforderungen an.
5. Drücken Sie die F5-Taste, um den Code auszuführen. Anschließend werden alle Peaks im Streudiagramm wie im folgenden Screenshot dargestellt markiert:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins