In welcher Reihe die meisten Übereinstimmungen

[flicflac]

Hallo,

ich habe eine Zahlenreihe (Spalte A bis T) bestehend aus 20 Zahlen des weiteren
habe ich eine Tabellenblatt mit 2500 Zahlenreihen je aus 20 Zahlen (Spalte AA bis AT)

Ich würde gerne abgleichen in welcher Zahlenreihe aus den 2500 Zahlenreihen die meisten Übereinstimmungen mit der erstgenannten
Zahlenreihe bestehen, so dass mir die Anzahl der Treffer angezeigt wird und die dazugehörige Zeilennr..

Ich finde leider keine Lösung dafür   und wäre für jede Hilfe dankbar.
Lediglich habe ich es hinbekommen, dass die jeweilige Zahl der doppelten Werte neben der Vergleichsreihe ausgegeben wird. Allerdings bei der Gesamtzahl der Reihen ist es müßig jedes mal über Filter die höchste
Zahl an doppelten Werte zu finden.

Ich habe die Tabelle mal auf 100 Datenreihen begrenzt.


  Beispiel.xlsx (Größe: 399,43 KB / Downloads: 9)

Danke.

[AlterDresdner]

Hallo,
der Aufwand für ein passendes Makro sollte überschaubar sein. Dafür wäre aber sinnvoll:
- eine Beispieldatei
- Definition "Übereinstimmung": vorhanden oder an gleicher Position?

[AlterDresdner]

Hallo,
ein erster Versuch:

Code:

Sub Vergleichen()
Const Vzeile = 101 'Zeile der Vergleichswerte
Const DatenZ = 2 'erste Zeile der Daten
Const Blatt = "Beispiel" 'dort stehen die Daten
'Daten in Spalten AA-AT, Vergleichswerte in Spalten A-T
'Übereinstimmung heißt: ist vorhanden
Dim Zeile As Long, DBlatt As Object, sp As Long, spD As Long
Dim Anzahl As Long, MaxZeile As Long, Merkanzahl As Long
  Set DBlatt = Sheets(Blatt)
  Zeile = DatenZ
  While Not IsEmpty(DBlatt.Cells(Zeile, 27))
    Anzahl = 0
    For sp = 1 To 20
      For spD = 27 To 46
        If Cells(Vzeile, sp) = DBlatt.Cells(Zeile, spD) Then Anzahl = Anzahl + 1
      Next spD
    Next sp
    If Anzahl > Merkanzahl Then
      Merkanzahl = Anzahl
      MaxZeile = Zeile
    End If
    Zeile = Zeile + 1
  Wend
  MsgBox "in Zeile " & MaxZeile & " gibt es die maximale Anzahl von " & Merkanzahl & " Übereinstimmungen."
  DBlatt.Activate
  Cells(MaxZeile, 27).Select
End Sub

Ich habe aber die Vergleichsdaten Deiner Datei wirklich ab Spalte A beginnen lassen und
Übereinstimmung heißt: Zahl aus vergleichsdaten kommt in den anderen Daten vor, unabhängig von Position. Deine Doppelt-Zählung konnte ich nicht nachvollziehen...

[shift-del]

Moin

Lösung mit PQ und mit Formeln.