Wie zählt man die Anzahl der Spitzenwerte in einer Spalte von Daten in Excel?
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
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:
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.
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.
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.
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:
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 SubHinweis: 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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins