Zum Hauptinhalt springen

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

Author: Siluvia Last Modified: 2025-08-06
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

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

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