Zahlenreihe finden

Hallo, ich bin’s schon wieder.
Jetzt will ich in einer Matrix (12 Spalten, 100 Zeilen) die Zellen finden, in denen 4 Werte, also z. B. die „3;18;64;12“ nebeneinander angeordnet sind. Ich krieg’s einfach nicht auf die Reihe. Ist halt zu schönes Wetter für Kopfarbeit.

Grüße

Matthias

Hallo, ich bin’s schon wieder.

Hallo!

Jetzt will ich in einer Matrix (12 Spalten, 100 Zeilen) die
Zellen finden, in denen 4 Werte, also z. B. die „3;18;64;12“
nebeneinander angeordnet sind. Ich krieg’s einfach nicht auf
die Reihe. Ist halt zu schönes Wetter für Kopfarbeit.

Sicherlich geht da was mit Matrixformeln (mal www.excelformeln.de durchforsten).
Ich würde eine VBA-Funktion nutzen, um festzustellen, ob die Zahlen- bzw. Wertereihe mindestens 1 mal in der Zeile vorhanden ist und das Ergebnis (Wahr/Falsch) in einer Hilfsspalte ausgeben.

VBA-Function:

Public Function enthältWertereihe(Bezug As Range, ParamArray Wertereihe() As Variant) As Boolean
Dim AnzahlWerte As Integer
Dim AnzahlSpalten As Integer
Dim zähler1 As Integer
Dim zähler2 As Integer
Dim zähler3 As Integer
Dim vglArr() As Variant
AnzahlWerte = UBound(Wertereihe) + 1
ReDim vglArr(AnzahlWerte - 1)
AnzahlSpalten = Bezug.Columns.Count
If AnzahlSpalten Anwendung in Tabelle:

    \*\*\* Tabelle: 'Tabelle1' \*\*\*
     A B C D E F G
     1 5 4 1 2 8 4 Wahr
     2 Y Z U J 32 A Wahr
     3 1 2 3 4 5 6 Falsch
    
    \*\*\* benutzte Formeln \*\*\* 
    G1: =enthältwertereihe(A1:F1;4;1;2;8)
    G2: =enthältwertereihe(A2:F2;"J";32;"A")
    G3: =enthältwertereihe(A3:F3;95;97;12)


Dabei ist der erste Parameter, der zu durchsuchende Bereich. Danach folgt eine beliebige durch Semikolon getrennte Auflistung der Vergleichswerte in der richtigen Reihenfolge.

Gruß, tester!