Excel Zellen mit bestimmten Kriterien zählen

Hallo Claus,
<br />danke für deine Antwort!
<br />

• Ausgangslage war (bzw. ist wohl sehr häufig), dass Zellen drei Einträge enthalten können, jeweils durch manuelle Zeilenumbrüche (Alt + Enter) voneinander getrennt. Die anfängliche Aufgabenstellung lautete, die Zeilenumbrüche zu zählen.
  <br />
• Insofern passt deine Lösung .
  <br />

Schließlich stellte sich aber heraus, dass beispielsweise die Nachbarzelle eine "1" oder "2" erhalten soll, wenn ein oder zwei der Einträge bestimmten Kriterien entsprechen.
<br />Im vorliegenden Beispiel könnte das Kriterium sein, "Kraftfahrer", " und "Gast" zu zählen. Die Nachbarzelle bekäme also eine "1" weil lediglich "Kraftfahrer" gefunden wurde.
<br />Es geht um zigtausend Zellen, die auszuwerten sind, sodass eine Lösung per Funktion gesucht wird.
<br />
Man sollte vermutlich zunächst eine Liste mit möglichen Suchkriterien erstellen.
<br />Eine Funktion müsste die Zellen dann jeweils nach den Kriterien durchsuchen und als Ergebnis ausgeben, wie viele Kriterien bzw. Suchbegriffe in der Zelle gefunden wurden.
<br />Auf die Schnelle hatte ich vorgeschlagen, per "Text in Spalten" die Daten zunächst auf drei Spalten zu verteilen (das Trennzeichen wäre hier Alt+010) und sich mit dem Filter zu behelfen.
Auf Dauer wird jedoch eine Funktion gesucht. Es handelt sich um Excel 2016.
<br />Viele Grüße
<br />Lisa
<br />

Hallo Jannis,

ich habe gerade festgestellt, dass es in xl2016 eine neue Funktion gibt, mit der man einen Bereich verketten kann. Mit dieser könntest du es so probieren:

=(LÄNGE(TEXTVERKETTEN(;WAHR;A1:Z1))-LÄNGE(WECHSELN(TEXTVERKETTEN(;WAHR;A1:Z1);"CCD"))/3

Claus

Hallo Claus

Vielen Dank für deine Antwort Das funktioniert. Gibt es vielleicht eine Funktion bei welcher der Datensatz (dh. A2:Z2 B2:AA2 & C2:AB2) konstant bleiben kann (z.B. A2:Z2)? Also das ich das nicht manuell
immer um 1 nach rechts verschieben muß?

Hallo Jannis,

probiere es mit einer benutzerdefinierten Funktion.

Füge folgenden Code in ein Standardmodul ein:

Function AnzKombis(myRng As Range, Suchtext As String) As Long

Dim varData As Variant

Dim strData As String

varData = Range("A1:O1")

strData = Replace(Join(Application.Index(varData, 1, 0)), " ", "")

AnzKombis = (Len(strData) - Len(Replace(strData, Suchtext, ""))) / Len(Suchtext)

End Function

Rufe die Funktion dann im Blatt auf mit z.B.:

=AnzKombis(A1:Z1;"CCD")

Claus

Hallo Jannis,

probiere mal:

=ZÄHLENWENNS(A2:Z2;"C";B2:AA2;"C";C2:AB2;"D")

Passe deine Bezüge entsprechend an.

Claus