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

Anzahl einzelner Ziffern einer Zahl in einer Zelle

Forumthread: Anzahl einzelner Ziffern einer Zahl in einer Zelle

Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 14:28:37
DerBuettel
Moin liebes Forum,
bin Newbie, habe aber schon oft durch Suchen und Finden hier wertvolle Informationen und Tipps abstauben dürfen.
Dafür an dieser Stelle schon einmal meinen herzlichsten Dank!
Ich bin wirklich froh, dass hier viele schlaue Leute andere an ihrem Wissen teilhaben lassen!!

Heute habe ich allerdings ein Problem für welches ich auch bei Tante "G" keine Lösung finden konnte weil ich vlt. dummerweise die falschen Suchbegriffe genutzt habe:

Ich möchte gerne in einer Zelle eine 4-stellige Zahl prüfen, ob deren einzelne Ziffern mehr als 1x in dieser Zahl vorkommen.
Beispiele:
[A1] 1234 -> Mehrfach = "NEIN"
[A2] 2234 -> Mehrfach = "JA"
[A3] 3894 -> Mehrfach = "NEIN"
[A4] 9242 -> Mehrfach = "JA"
.....
Ich danke schon einmal vorab für alle Antworten!
Viele Grüße
DerBuettel
Anzeige
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 14:55:54
GerdL
Ob ich deine Level noch erreichen kann? :-)
Sub Unit()


Range("a3") = "2424"
Range("a3").Activate

Dim i As Integer
Dim Mehrfach As String

Mehrfach = "NEIN"
If Not IsNumeric(ActiveCell) Or Len(ActiveCell) > 4 Then Exit Sub

For i = 0 To 9
If Len(WorksheetFunction.Substitute(ActiveCell, i, "")) 3 Then Mehrfach = "JA": Exit For
Next
MsgBox "Mehrfache Ziffern in " & ActiveCell.Address & ": " & Mehrfach

End Sub

Gruß Gerd
Anzeige
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 15:01:01
Onur
=LET(txt;$A1;tx;TEIL(txt;SEQUENZ(LÄNGE(txt));1);zz;tx=MTRANS(tx);SUMME(1*zz)>4)
Probiere es...
17.02.2025 15:15:37
Case
Moin, :-)

... mal so: ;-)
=LET(y;B12;z;TEIL(y;SEQUENZ(4);1);SUMME(1*(z=MTRANS(z)))>4)

Servus
Case
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 15:30:07
Raimund
Hi Buettel

So?

=WENN(LÄNGE(A1) - LÄNGE(WECHSELN(A1; TEIL(A1; 1; 1); "")) > 1; "Ja"; WENN(LÄNGE(A1) - LÄNGE(WECHSELN(A1; TEIL(A1; 2; 1); "")) > 1; "Ja"; WENN(LÄNGE(A1) - LÄNGE(WECHSELN(A1; TEIL(A1; 3; 1); "")) > 1; "Ja"; WENN(LÄNGE(A1) - LÄNGE(WECHSELN(A1; TEIL(A1; 4; 1); "")) > 1; "Ja"; "Nein"))))


Gruss

Raimund
Anzeige
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 18:18:45
Uduuh
Hallo,
noch eine:
=ANZAHL2(EINDEUTIG(TEXTTEILEN(TEXT(A1;"0-0-0-0");;"-")))=4

Gruß aus'm Pott
Udo
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 19:00:16
Daniel
Hi

mir gefällt die Idee von Udo.
hier mal so erweitert, dass sie mit jeder beliebigen Zahlenlänge und sogar mit Buchstabenkombinationen funktioniert:

=WENN(ANZAHL2(EINDEUTIG(TEIL(A1;SEQUENZ(LÄNGE(A1));1)))=LÄNGE(A1);"NEIN";"JA")

Gruß Daniel
Anzeige
AW: alternativ für ältere XL-Versionen noch folgende ...
17.02.2025 21:03:42
neopa C
Hallo,

... da es sich um Zahlenwerte handeln soll, dann in älteren & alten XL-Versionen
so: {=WENN(ANZAHL(VERGLEICH(ZEILE(A$1:A$10)-1;--TEIL(A1;ZEILE(A$1:A$4);1);0))=4;"NEIN";"JA")}
wobei die {} nicht einzugeben sind sondern die Formel mit [StrG] + [Shift] + [Enter] abzuschließen ist

Oder für beliebige Länge der Zahl (bis max 10 Stellen, weil bei mehr ja auf jeden Fall Wiederholungen vorhanden wären)
dann so: {=WENN(ANZAHL(VERGLEICH(ZEILE(A$1:A$10)-1;--TEIL(A1;ZEILE(A$1:A$10)-1;1);0))=LÄNGE(A1);"NEIN";"JA")

Gruß Werner
.. , - ...
aus C the unseen
Anzeige
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 19:15:37
Uduuh
Hallo,
auch sehr schön.
Alternativ:
=--(ANZAHL2(EINDEUTIG(TEIL(A1;SEQUENZ(LÄNGE(A1));1)))=LÄNGE(A1))
und Zellformat "NEIN";;"JA"

Gruß aus'm Pott
Udo
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 19:48:04
Daniel
sorry, aber ich bin kein Fan davon, dem Anwender Falsche Tatsachen vorzugaukeln und in den Zellen was anderes anzuzeigen, als in der Zelle drin steht.
wenn da "JA" angezeigt wird, sollte auch "JA" drin stehen.
alles andere ist Verarsche und ist verwirrend, wenn man das Ergebnis weiterverarbeiten will (bspw mit ZählenWenn(...;"JA")

Anzeige
Gutes Argument. owT
17.02.2025 23:09:34
Uduuh
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 18:22:27
Onur
Hallo Udo,

Bei mir kommt damit genau das Gegenteil raus - da müsste noch ein NICHT drumherum.
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 18:26:23
Onur
Aber ansonsten eine elegante Lösung...
Hätte nicht gedacht, dass TEXT() sogar mit Text funktioniert.
Anzeige
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 18:33:37
Uduuh
Hallo,
Hätte nicht gedacht, dass TEXT() sogar mit Text funktioniert.
Es geht doch um eine 4-stellige Zahl.

Und natürlich >4 statt =4.

Gruß aus'm Pott
Udo
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 18:37:39
Onur
Ich weiss, aber, ich dachte, 1234 könnte ja theoretisch auch Text sein, dann nahm ich an, dass deine Formel versagen würde.... Von wegen ...
Wenn aber 1234 nur Zahl sein kann, eröffnen sich ganz andere Lösungsmöglichkeiten.
Anzeige
AW: Anzahl einzelner Ziffern einer Zahl in einer Zelle
17.02.2025 15:43:05
DerBuettel
Chapeau!!
Ihr seid der Hammer!
Alle Lösungen funktionieren einwandfrei.
Aber auf diese Formeln wäre ich im Leben nicht gekommen.
Damit wäre dieser Thread erledigt!

Ich sage vielen herzlichen Dank an alle !
Grüße
DerBuettel
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