Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Anzahl gleicher Werte in Folge zählen

bestimmte Anzahl gleicher Werte in Folge zählen
04.11.2017 21:38:41
Kiwi
Hallo,
ich hoffe es kann mir jemand weiterhelfen.
Ich habe eine Spalte mit vielen Zeilen (40.000)mit den Zahlen 1 und 0 und möchte nun die Bereiche, in denen die O 20 bzw mehr als 40 mal in Folge vorkommt farbig markieren.
Ich habe schon verschiedene Zählformel ausprobiert, aber irgendwie funktionrt keine, so wie ich sie anwende. Weiß jemand eine Löung?

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Area
04.11.2017 22:12:49
Fennek
Hallo,
ungeprüft:

sub Test()
columns(1).replace 1, "a"
for each Ar in columns(1).specialcells(2,1).areas
if Ar.count > 40 then Ar.interior.color = vbgreen
if Ar.count > 20 then Ar.interior.color = vbyellow
next Ar
end sub
mfg
AW: Area
04.11.2017 23:10:25
Kiwi
Vielen Dank für deine Antwort. Ich bin nur leider ziemlich unbedarft mit Excel und kann deine Antwort nicht umsetzen...
Gibt es eine Anfängeranleitung dafür?
LG Kiwi
AW: Area
05.11.2017 06:51:50
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen (Alt+F4, oder Kreuz rechts oben).
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen (Alt+F8 ).

Anzeige
Anmerkung
05.11.2017 10:27:53
Werner
Hallo Fennek,
interessanter Lösungsansatz -da wär ich so nicht drauf gekommen - gefällt mir.
Nur:
-so werden auch Blöcke größer 40 auch gelb gefärbt
-du hast auch vergessen die "a" wieder durch 1 zu ersetzen 
Sub Test()
Columns(1).Replace 1, "a"
For Each Ar In Columns(1).SpecialCells(2, 1).Areas
If Ar.Count > 40 Then Ar.Interior.Color = vbGreen
If Ar.Count > 20 And Ar.Count
Gruß Werner
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 10:56:47
Gerd
Hallo,
wenn du keine Lücken bei 0/1 hast: 
Sub kiwi()
Dim Y As Range
With Columns(1)
.Interior.ColorIndex = -4142
For Each Y In .ColumnDifferences(.Find(1)).Areas
If Y.Count > 40 Then
Y.Interior.Color = vbYellow
ElseIf Y.Count >= 20 Then
Y.Interior.Color = vbGreen
End If
Next
End With
End Sub
Gruß Gerd
Anzeige
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 12:53:22
Daniel
Hi
Du brauchst zwei Hilfsspalten.
Die Daten müssen ab Zeile 2 beginnen, die erste Zeile ist Überschrift.
In die erste Hilfsspalte (B) kommt diese Formel (Formel für B2):
=wenn(A2=0;Summe(B1;1);0)
In die zweite Hilfsspalte (C) dann diese Formel (Formel für C2):
=Wenn(A2=0;Wenn(A3=0;C3;B2);"")
In der Spalte C steht dann für jede Zeile eines 0-Blocks, wie lang dieser Block ist.
Das kannst du dann für weitere Kennzeichnungen verwenden, sei es in einer dritten Hilfsspalte oder mit der Bedingten Formatierung.
Gruß Daniel
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 16:38:57
Kiwi
Vielen Dank für eure Antworten.
Mit der Wenn-Funktion hat mir Excel nur 0 ausgespuckt, egal wass in der Spalte davor stand.
Mit dem Code "Dim Y As Range" von Gerd geht es, zumindest manchmal. Ich weiß nicht warum mein Computer einmal die Werte markiert und einmal nicht.
Was muss ich am Code ändern, wenn meine gewünschte Spalte nicht die erste ist. Und wie kann ich eine dritte Farbe einführen? Ich habe versucht es genauso zu schreiben wie bei grün und gelb aber es ging nicht.
Dim Y As Range
With Columns(1)
For Each Y In .ColumnDifferences(.Find(1)).Areas
If Y.Count > 40 Then
Y.Interior.Color = vbYellow
ElseIf Y.Count >= 15 Then
Y.Interior.Color = vbGreen
ElseIf Y.Count >= 25 Then
Y.Interior.Color = vbRed
End If
Next
End With
End Sub
Und wie kann ich einen Wertebereich angeben, also z.B. dass alle Reihen vonb Y die 15-25 Zellen lang sind markiert werden.
Mit dem Code "columns(1).replace 1, "a"" wurden immer nur die 1 mit a ersetzt, aber nichts farbig.
Mein PC it leider auch nicht der beste und hängt sich ständig auf, wenn ich die Makros anwende.
Vielen Dank schonmal für eure Hilfe
LG Kiwi
Anzeige
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 17:01:27
Daniel
Hi
kannst du mal ne Beispieldatei hochladen und dort von Hand kennzeichnen, was wie markiert werden soll?
es müssen ja nicht alle 40.000 Zeilen sein, aber zumindest so viele, dass ein paar zu kennzeichnende Stellen dabei sind.
Gruß Daniel
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 17:15:48
Kiwi
Hier ist der Link zur Datei:

Die Datei https://www.herber.de/bbs/user/117449.xlsm wurde aus Datenschutzgründen gelöscht


Danke
LG Kiwi
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 17:46:44
Daniel
Hi
funktioniert doch mit der Formel.
Wenn die Werte nicht in Spalte A stehen sondern in einer anderen Spalte, musst du die Daten eben anpassen.
https://www.herber.de/bbs/user/117453.xlsm
Gruß Daniel
Anzeige
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 18:27:07
Kiwi
Hi,
keine Ahnung warum das bei mir nicht ging. Aber ich bin auch ein ziemlicher Laie. Welcher Teil der Formel ist dabei die Farbmarkierung? Oder hast du diese per Hand markiert?
Herzlichsten Dank
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 18:34:19
Daniel
HI
Die Farbe wird über die Bedingte Formatierung erzeugt.
Das findest du im Menü START - FORMATVORLAGEN - BEDINGTE FORMATIERUNG.
Damit kann man die Farben von Zellen in Abhängigkeit von Zellwerten festlegen.
Jede Zeile, die in Spalte D einen Wert größer oder gleich 40 hat wird orange
Jede Zeile, die in Spalte D einen Wert größer oder gleich 15 hat wird gelb
Gruß Daniel
Anzeige
AW: bestimmte Anzahl gleicher Werte in Folge zählen
05.11.2017 20:18:54
Werner
Hallo Kiwi,
hier deine Beispielmappe mit dem angpassten Makro von Fennek.
https://www.herber.de/bbs/user/117457.xlsm
Gruß Werner

317 Forumthreads zu ähnlichen Themen

Pivot: Anzahl verschiedener Werte
Daniel

Hallo Profis,
wie kann ich im Datenfeld einer Pivot-Tabelle die Anzahl verschiedener Werte anzeigen lassen?
Bsp:
Spalte A
A
B
A
C
V
A
Excel zeigt hier im Datenfeld der Pivot-Tabelle (Anzahl) als Wert 7 an.
Ich würde aber gerne nur die Anzahl der versc...
07.01.2009 09:48:00
Thread-ID: 1037453
2 Beiträge
Anzeige
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Gleiche Zeilen zählen und Werte zusammenzählen
asz

Hallo,
ich habe ein Problem: Ich habe eine Liste wie die folgende:
https://www.herber.de/bbs/user/62689.xls
Es handelt sich jeweils um mehrere Exemplare desselben Buches/Titels. In Spalte I stehen die Ausleihzahlen der einzelnen Exemplare. Ich würde nun gern in einem neuen Blatt au...
23.06.2009 16:26:09
Thread-ID: 1083867
2 Beiträge
Anzeige
Zählen ohne Duplikate mit 5 Bedingungen
Jonathan

Hallo liebe Experten,
ich stehe mal wieder vor einer Herausforderung, bei der ich Hilfe benötige.
Ich muss in einer Spalte Materialien ohne Duplikate zählen. Diese Materialien müssen dann 5 Bedingungen in anderen Spalten erfüllen.
Als Ergebnis soll mir dann die Anzahl ausgegben werd...
03.07.2009 12:33:02
Thread-ID: 1086200
17 Beiträge
Anzahl unterschiedlicher sichtbarer Werte
Dietmar

Guten Abend,
ich tüftele schon den ganzen Abend herum.
Wie kann ich die Anzahl unterschiedlicher Werte in einer Spalte per Formel herausfinden?
In der Spalte B (ab Zeile 33) steht Text und Zahlen.
Und jetzt das Besondere:
Die Anzahl soll nur für die sichtbaren Felder ausgewo...
05.03.2010 23:06:13
Thread-ID: 1143848
5 Beiträge
Pivot Tabellen Bestwerte anzeigen
Friedhelm

Hallo,
ich habe eine Tabelle mit Ergebnissen von Läufern und möchte in den Altergruppen und den verschiedenen Laufstrecken die Bestzeiten der Läufer darstellen.
Als Beispiel habe ich eine Tabelle beigefügt, die soweit den Pivot Auszug darstellt. Hier möchte ich in den Lauflängen nur die...
13.09.2010 11:02:06
Thread-ID: 1177216
8 Beiträge
Pivot - Anzahl Unterschiedlicher Zahlen
Martin

Hallo,
ich habe eine Tabelle die ich per PIVOT auswerte. Im Wertebereich benötige ich jedoch als Verdichtungsfunktion nicht die Anzahl, sondern die Anzahl unterschiedlicher Feldinhalte.
Beispiel: Bei den Werten 1;1;2;3;3 soll der Wert 3 zurückgegeben werden weil 3 unterschiedliche Feldi...
07.12.2010 16:23:04
Thread-ID: 1190442
4 Beiträge
in Combobox gleiche Werte nur einmal
Harald

Hallo Excel Fans,
ich möchte eine ComboBox so initalisieren das gleiche Werte nur einmal vorkommen, wie müsste ich den Code ändern um dies zu erreichen.Vielen Dank für eure HilfeGruß Harald


10.05.2002 19:20:18
Thread-ID: 120074
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
6
1
4
16
4
7
3
2
2
10
3
7
6
7
3
1
4
6
3
1
3
10
7