Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zählen von gleichen Werte, wenn aufeinanderfolgend

Forumthread: Zählen von gleichen Werte, wenn aufeinanderfolgend

Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 13:58:46
Patrick_Arbeit
Guten Tag,

ich habe in einer Excel den Urlaubsplan eingepflegt.
Das Datum ist dabei in Zeile 3 gepflegt und der Tag wird in Zeile 4 ausgegeben.
Wenn nun Beispielsweise bei einem MA in Zeile 10 ein "k" eingetragen wird, zählt meine Datei die einzelnen K
Eine weitere Zählung soll sein, dass die direkt aufeinanderfolgenden "k" als 1 gezählt werden. Dabei sollen jedoch Wochenende sowie Feiertage nicht berücksichtigt werden

Beispiel:
L3 = 02.01.2025; L4 = Do; L10 = k
M3 = 03.01.2025; M4 = Fr; M10 = k
N3 = 04.01.2025; N4 = Sa; N10 =
O3 = 05.01.2025; O4 = So; O10 =
P3 = 06.01.2025; P4 = Mo; P10 = k
Q3 = 07.01.2025; Q4 = Di; Q10 =
R3 = 08.01.2025; R4 = Mi; R10 = k
S3 = 09.01.2025; S4 = Do; S10 = k

Ergebnis: 2 aufgrund der Unterbrechung in Q10

Lieben Dank vorab für eure Hilfe

Beste Grüße
Patrick
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 14:05:11
Onur
Und eine Beispieldatei sollen wir uns aus deiner Beschreibumg selber basteln?
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 14:35:06
daniel
Hi
hier mal eine Formelllösung:

=LET(

dat;$K$3:$T$3;
ft;$K$5:$T$5;
krk;$K10:$T10;
txt;GLÄTTEN(TEXTKETTE(WENN(ft>"";"";WENN(WOCHENTAG(dat;2)>5;"";WENN(krk="";" ";krk)))));
WENN(txt="";0;ANZAHL2(TEXTTEILEN(txt;" "))))


Gruß Daniel
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 14:50:52
Patrick_Arbeit
Hi Daniel,

besten Dank. Eine super schnelle Hilfe und es funktioniert genau wie gedacht :)

Aller beste Grüße
Patrick
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 15:08:56
Patrick_Arbeit
Hi Daniel,

leider ist die Formel nicht auf das ganze Jahr anwendbar --> #Wert

Gibt es die Möglichkeit die Formel so anzupassen, dass sie auf das ganze Jahr möglich ist?

Spalte K bis NL bzw. im Schaltjahr bis NM

https://www.herber.de/bbs/user/174193.xlsx
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 15:22:22
Michael
Hi,

der WOCHENTAG(dat;2) gibt bei leerem dat #WERT! aus.
Lösche die Spalte für den 29.02. oder ändere die Formel so:
=LET(dat;$K$3:$NL$3;ft;$K$5:$NL$5;krk;$K10:$NL10;txt;GLÄTTEN(TEXTKETTE(WENN(ft>"";"";WENN(WENNFEHLER(WOCHENTAG(dat;2);0)>5;"";WENN(krk="";" ";krk)))));WENN(txt="";0;ANZAHL2(TEXTTEILEN(txt;" "))))

VG Michael
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
09.12.2024 15:39:13
daniel
das Problem ist, dass dein Kalender nicht lückenlos ist, sondern bei Spalte BS plötzlich eine Leerstelle aufweist.
wer machst so einen Blödsinn???
diese Leerstelle (Text "") kann die Funktion WOCHENTAG nicht berechnen und gibt den WERT-Fehler aus, welcher dann das Gesamtergebnis der Formel ist.

als Workaround kannst du diese Lücke als Feiertag kennzeichnen, denn die Feiertagsprüfung erfolgt als erstes, damit wird dann dieser Fehler vermieden.

Gruß Daniel
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
10.12.2024 08:42:11
Patrick_Arbeit
Hallo Daniel,
Hallo Michael,

die Spalte hatte ich gar nicht auf dem Schirm. Danke für den Hinweis. Sie ist gelöscht.

Jetzt stehe ich jedoch vor dem Problem, dass in der Excel auch andere Zeichen verwendet werden, wie z.B. "x" (insgesamt werden ca. 10 verschiedene Zeichen in die Tabelle eingetragen) und die Zählung nur auf das "k" reagieren soll.

Könnt ihr mir bitte nochmal behilflich sein.

Beste Grüße
Patrick
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
10.12.2024 15:19:33
Yal
Moin,

wenn die Formel-Lösung zu komplex wird, bietet sich eine in VBA maßgeschneiderte Formel zu erzeugen (User Defined Function)

- öffne VBA-Editor mit Alt+F11
- füge einen Modul ein: Menü "Einfügen", "Modul"
- in dem Modul folgende Code reinkopieren
Public Function ZusammenZählen(ByVal Target As Range, ByVal Zeichen As String) As Long

Dim Z As Range
Dim Max As Long
Dim lokalMax As Long

Zeichen = LCase(Zeichen)
For Each Z In Target
If lokalMax > Max Then Max = lokalMax
lokalMax = IIf(LCase(Z.Value) = Zeichen, lokalMax + 1, 0)
Next
ZusammenZählen = Max 'bildet das Ergebnis der Formel
End Function


und im Blatt die Formel eingeben:
=ZusammenZählen(K10:NL10;"k")
oder
=ZusammenZählen(K10:NL10;"x")
oder
...

VG
Yal
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
11.12.2024 12:32:33
daniel
Könnt ihr mir bitte nochmal behilflich sein.

gerne.
schau dir die Formel mal an, schalte dein Gehirn ein und versuche die Formel zu verstehen.
du siehst doch, wie mit den geschachtelten WENN deine verschiedenen Anforderungen berücksichtigt werden.
versuche selber, deine deine hinzuzufügen.

im prinzip müsse es für das letzten WENN sein: ...WENN(krk="k";"k";" ")...

Gruß Daniel
Anzeige
AW: Zählen von gleichen Werte, wenn aufeinanderfolgend
11.12.2024 10:07:26
Patrick_Arbeit
Hallo Yal,

Lieben Dank für deine Mühen,

deine Formel bewirkt, dass ich die längste Kette des jeweiligen Zeichens zähle.

Mein Wunsch jedoch ist es die Ketten als jeweils 1 darzustellen und die Anzahl der Ketten zu zählen.

Es funktioniert grundlegend schon sehr gut mit der Formel von Daniel, wie in der beigefügten Excel, jedoch sollen nur die "K" berücksichtigt werden.

https://www.herber.de/bbs/user/174304.xlsx

Beste Grüße
Patrick

Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18