Note: The other languages of the website are Google-translated. Back to English

Wie zähle ich die Anzahl der Peaks in einer Datenspalte in Excel?

Angenommen, in Ihrem Arbeitsblatt befinden sich zwei Datenspalten, wie im linken Screenshot gezeigt. Wie wird die Anzahl der Peaks in Spalte B gezählt? Tatsächlich können Sie einen Zellenwert (z. B. B3) als Peak beurteilen, wenn er gleichzeitig größer als B2 und B4 ist. Andernfalls ist es kein Peak, wenn diese beiden Kriterien nicht erfüllt werden. In diesem Artikel wird das Auflisten und Zählen aller Peaks in einer Datenspalte in Excel behandelt.

Zählen Sie die Anzahl der Peaks in einer Datenspalte in Excel

Markieren Sie alle Peaks in einem Streudiagramm


Zählen Sie die Anzahl der Peaks in einer Datenspalte in Excel

Die folgende Formel kann Ihnen helfen, eine Anzahl von Peaks in einer Datenspalte direkt in Excel zu zählen.

1. Wählen Sie eine leere Zelle zum Platzieren des Ergebnisses aus und geben Sie die Formel ein =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) in die Formel-Bar, dann drücken Sie die Taste Weiter Schlüssel. Siehe Screenshot:

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


Markieren Sie alle Peaks in einem Streudiagramm

Außerdem können Sie Peaks einer Spalte leicht herausfinden, indem Sie ein Streudiagramm erstellen und alle Peaks im Diagramm markieren. Bitte gehen Sie wie folgt vor.

1. Wählen Sie die Zelle C3 aus, die an Zelle B3 angrenzt (der zweite Zellenwert Ihrer Liste ohne Kopfzeile), und geben Sie die Formel ein = IF (UND (B3> B2, B3> B4), "Peak", "") in die Formel-Bar und drücke die Weiter Schlüssel. Ziehen Sie dann den Füllgriff nach unten, um alle Spitzen wie im folgenden Screenshot zu markieren.

2. Wählen Sie die Spalten x und y aus und klicken Sie auf Insert > Fügen Sie Streuung (X, Y) oder Blasendiagramm ein > Mit geraden Linien und Markern streuen um ein Streudiagramm in das Arbeitsblatt einzufügen. Siehe Screenshot:

3. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

4. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Markieren Sie alle Peaks in einem Streudiagramm

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 Hilfespalte, die die in Schritt 1 angewendeten Formelergebnisse enthält. Bitte ändern Sie sie entsprechend Ihren Anforderungen.

5. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann werden alle Peaks auf dem Streudiagramm wie im folgenden Screenshot markiert:


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL