Zahlen suchen in 7 Spalten

Servus aus dem Ösiland an die Excelgemeinde!

Irgendwie stehe ich wieder an meiner Grenze mit VBA in Excel!
Da braucht es die sehr guten Excel Freaks!

Was ist mein Problem?
Ich habe einen Code geschrieben, welcher überprüft jede Zeile nach Kriterien die zutreffen.
Jedes Kriterium also criterial1 gehört der Spalte A, criterial2 der Spalte B usw....
Ich will aber was anderes, dass criterial1 vorerst alle Spalten durchsucht nach der gewünschten Zahl und dann geht es zu criteria2 zur nächsten und untersucht diese auf eine Gültigkeit....geht dann weiter bis criteria7 und dann will ich eine 1 stehen haben, weil Treffer!

Mein Problem ist also nicht mit dem Code Zahlen von 1 bis 7 anzugeben und bekomme einen Treffer!
Aber würde ich die Zahlen umdrehen von 7 bis 1, bekomme ich natürlich die Null, weil der Code ja nur criteria1 in Spalte A prüft usw.
Ich würde aber gerne das die erste Zahl in alle sieben Spalten geprüft werden und dann geht es weiter mit criteria2 usw.

Beispiel1: ich habe die Zahlen 1, 2, 3, 4, 5, 6, 7
criteria1 = 1, criteria2 = 2 usw.

Ich bekomme dann die EINS in der Ausgabe, was super ist.
Aber wenn ich die Zahlen umdrehe von Anfang 7 bis zur 1 bekomme ich natürlich die NULL, weil criteria1 ja nur für Spalte A zuständig ist.

Aber ich will das die criteria1 gleich 7 Spalten durchsucht und dann weitergeht auf die criteria2 und das auch macht wie bis criteria7
Sozusagen, wenn alle Zahlen richtig erfüllt sind, egal welche Spalte, bekomme ich die 1 in der Ausgabe.
Also wenn ich Zahlen angebe mit 1,2,3,4,5,6,7 = Treffer
Wenn ich aber sie tausche, bekomme ich die Null und will im Grunde...wenn eine Zeile alle Zahlen hat mit den Kriterien muss es auch eine eins geben in der Ausgabe.

Das ist mein großes Problem!

Im Prinzip soll das criteria1 alle 7 Spalten nach Richtigkeit untersuchen in einer Schleife, bei Treffer gut und dann geht es weiter zu criteria2 usw....wenn alles passt, egal wo sich die Zahl befindet ergibt es eine Lösung oder?
Wird wohl eine sehr lange Schleife oder?

Ich bin da echt ratlos derzeit, wie man das anders umsetzt und grüble schon so lange.

LG mckater

https://www.herber.de/bbs/user/178045.xlsm

Hi,
ich meinte das so:

Option Explicit



Sub CountMultipleCriteriaLoop()



  Dim ws As Worksheet

  Dim count As Long

  Dim cell As Range

  Dim criteria1 As Variant, criteria2 As Variant, criteria3 As Variant, criteria4 As Variant, criteria5 As Variant, criteria6 As Variant, criteria7 As Variant

  Dim i As Long



  ' Arbeitsblatt definieren

  Set ws = ThisWorkbook.Sheets("Zahlenkombinationen")



  ' Kriterien definieren

  criteria1 = "1" ' Erstes Kriterium was erfüllt werden muss in der ersten Spalte

  criteria2 = "2" ' Zweites Kriterium was erfüllt werden muss in der zweiten Spalte

  criteria3 = "3" ' Drittes Kriterium was erfüllt werden muss in der dritten Spalte

  criteria4 = "4" ' Viertes Kriterium was erfüllt werden muss in der vierten Spalte

  criteria5 = "5" ' Fünftes Kriterium was erfüllt werden muss in der fünften Spalte

  criteria6 = "6" ' Sechstes Kriterium was erfüllt werden muss in der sechsten Spalte

  criteria7 = "7" ' Siebtes Kriterium was erfüllt werden muss in der siebten Spalte









      count = 0



  ' Zähler initialisieren



  ' Schleife durch die Zeilen iterieren

  For i = 1 To 2 ' Überprüft wird die Schleife von Zeile 1 bis 2



    ' Spalten definieren (A, B, C usw. Spalte)

    Set cell = ws.Cells(i, 1) ' Erste Spalte (A)



    ' Erstes Kriterium prüfen

    If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria1) > 0 Then

        'MsgBox Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria1)

        ' Zweites Kriterium prüfen

        If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria2) > 0 Then

            ' Zähler erhöhen, wenn beide Kriterien erfüllt sind

            

        If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria3) > 0 Then

            ' Zähler erhöhen, wenn alle drei Kriterien erfüllt sind

            

        If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria4) > 0 Then

            ' Zähler erhöhen, wenn alle vier Kriterien erfüllt sind

            

        If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria5) > 0 Then

            ' Zähler erhöhen, wenn alle fünf Kriterien erfüllt sind

            

        If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria6) > 0 Then

            ' Zähler erhöhen, wenn alle sechs Kriterien erfüllt sind

            

        If Application.WorksheetFunction.CountIf(ws.Range(Cells(i, 1), Cells(i, 7)), criteria7) > 0 Then

            ' Zähler erhöhen, wenn alle sieben Kriterien erfüllt sind

            

            

            

            

            count = count + 1

            

            End If

            End If

            End If

            End If

            End If

            

        End If

    End If

  Next i



  ' Ergebnis anzeigen

  MsgBox "Anzahl der Zellen, die IHRE Kriterien erfüllen: " & count



End Sub

LG, Alexandra

Forumthread: Zahlen suchen in 7 Spalten

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Zahlen suchen in 7 Spalten

Forumthread: Zahlen suchen in 7 Spalten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread