Zum Hauptinhalt springen

Wie zählt man die Anzahl der Spitzenwerte in einer Spalte von Daten in Excel?

Author: Siluvia Last Modified: 2025-05-28
sample data

Angenommen, zwei Spalten mit Daten befinden sich in Ihrem Arbeitsblatt, wie im linken Screenshot gezeigt. Wie kann man die Anzahl der Spitzenwerte in Spalte B zählen? Tatsächlich können Sie einen Zellenwert (z. B. B3) als Spitzenwert beurteilen, wenn er gleichzeitig größer als B2 und B4 ist. Andernfalls ist es kein Spitzenwert, wenn diese beiden Kriterien nicht erfüllt sind. Dieser Artikel behandelt das Auflisten und Zählen aller Spitzenwerte in einer Spalte von Daten in Excel.

Anzahl der Spitzenwerte in einer Spalte von Daten in Excel zählen

Alle Spitzenwerte in einem Streudiagramm markieren


Anzahl der Spitzenwerte in einer Spalte von Daten in Excel zählen

Die folgende Formel kann Ihnen helfen, die Anzahl der Spitzenwerte in einer Spalte von Daten direkt in Excel zu zählen.

1. Wählen Sie eine leere Zelle für das Ergebnis aus, geben Sie die Formel =SUMMENPRODUKT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) in die Formel-Leiste ein und drücken Sie dann die Eingabetaste. Siehe Screenshot:

apply a formula to count number of peaks in a column

Hinweis: In der Formel ist B3:B17 der Bereich von der dritten Zelle (einschließlich Kopfzeile) bis zur vorletzten Zelle der Liste, B2:B16 ist der Bereich von der zweiten Zelle (einschließlich Kopfzeile) bis zur drittletzten Zelle der Liste, und schließlich ist B4:B18 der Bereich von der vierten Zelle (einschließlich Kopfzeile) bis zur letzten Zelle der Liste. Bitte ändern Sie sie nach Bedarf.

a screenshot of kutools for excel ai

Entfesseln Sie die Magie von Excel mit Kutools AI

  • Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
  • Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
  • VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
  • Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
  • Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Alle Spitzenwerte in einem Streudiagramm markieren

Darüber hinaus können Sie leicht Spitzenwerte einer Spalte herausfinden, indem Sie ein Streudiagramm erstellen und alle Spitzenwerte im Diagramm markieren. Gehen Sie bitte wie folgt vor.

1. Wählen Sie die Zelle C3, die neben Zelle B3 liegt (der zweite Zellenwert Ihrer Liste ohne die Kopfzeile), geben Sie die Formel =WENN(UND(B3>B2,B3>B4), "Spitze"," ") in die Formel-Leiste ein und drücken Sie die Eingabetaste. Ziehen Sie dann den Ausfüllkursor nach unten, um alle Spitzenwerte wie im folgenden Screenshot zu markieren.

enter a formual to get all peaks

2. Wählen Sie die x- und y-Spalten aus und klicken Sie auf Einfügen > Streudiagramm (X, Y) oder Blasendiagramm > Streudiagramm mit geraden Linien und Markierungen, um ein Streudiagramm in das Arbeitsblatt einzufügen. Siehe Screenshot:

 insert a scatter chart

3. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

4. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren und fügen Sie dann den folgenden VBA-Code in das Codefenster ein.

VBA-Code: Alle Spitzenwerte 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 Sub

Hinweis: Im Code ist „Diagramm 1“ der Name des erstellten Streudiagramms und „C1“ ist die erste Zelle der Hilfsspalte, die die Formelergebnisse enthält, die Sie in Schritt 1 angewendet haben. Ändern Sie sie je nach Bedarf.

5. Drücken Sie die Taste F5, um den Code auszuführen. Dann werden alle Spitzenwerte im Streudiagramm wie im folgenden Screenshot markiert:

run vba code to get all peaks are marked on the scatter chart

Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!