Summe Zählenwenn: welcher Fehler?

Hallo,
ich habe 2 Tabellen:
Tabelle KK3: dort sind ab B5 nach unten Bezeichnungen aufgelistet, die immer verschiedene Namen mit 01A, 02R, 03A, 10R usw. haben
Tabelle KK3quer: dort sind ab B5 nach unten Bezeichnungen aufgelistet, die immer verschiedene Namen mit 01A, 02R, 03A, 10R usw. haben, jedoch sind die Bezeichnungen immer länger als in Tabelle KK3
Aufgabe: es soll pro Zeile ab Zeile 5 in der Tabelle KK3quer herausgefunden werden, welche bzw. wieviele Nachmensteile 01A, 02A usw. jeweils mit den Zeilen in KK3 übereinstimmen. Ich habe zuerst in beiden Tabellen die Namensteile 01A, 02A usw. in Spalten aufgeteilt. Anschließend habe ich per MTRANS die Spalte A und die Spalte B in KK3quer in die Zellen ab AN1 quer aufgelistet.
Jetzt kann quasi jede Zeile von KK3quer mit jeder Zeile KK3 verglichen werden. Ich habe hierfür folgende Formel erstellt in AN5 und nach rechts und nach unten kopiert:
~=WENN(SUMME(WENN('KK3'!$U5:$AX5999;ZÄHLENWENN('KK3'!$U5:$AX5;INDEX($F:$AI;AN$1;hoch!AN$13):INDEX($F:$AI;AN$1;hoch!BR$13))))='KK3'!$F5;"JA";"")~
Die Formel liefert falsche und richtige Ergebnisse. Ich habe schon alles mögliche probiert, geändert, aber ohne Erfolg. Ich dachte, es liegt evtl. an dem Spaltenbereich, den ich mit der INDEX-Formel fixiere. Dafür habe ich in der Hilfstabelle "hoch" in den Zeilen 11 bis 13 verschiedene Spaltendifferenzen angelegt - aber alles ohne Erfolg.
In einer Tabelle KK3quer_manuell habe ich die Zellen AQ8, AY16 und BA 18 rot markiert, da diese jeweils falsch sind (es sind aber sicherlich noch mahr falsch). Aber für die Erklärung könnten die Hinweise reichen.
https://www.herber.de/bbs/user/155987.xlsx
Vielen Dank für eine Hilfe.
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Erich,
das Vorhaben ist nicht komplex, aber mit Excel lösen zu versuchen macht es komplex.
Daher würde ich auf eine User Defined Function (UDF) weichen:
die 2 Dateiname als Eingangsparameter,
behalten, was zwischen Unterstrich und Leezeichen liegt,
daraus in 3er-Gruppe einzel vergleichen.
Sieht so aus:


Public Function Ähnlichkeit(ByVal Name1 As String, ByVal Name2 As String) As String
Dim i, j
Dim Res As String
Name1 = Left(Name1, InStr(1, Name1, " ") - 1) 'nur was vor dem Leerzeichen steht
Name1 = Mid(Name1, InStr(1, Name1, "_") + 1) 'nur was nach dem Underscore steht
Name2 = Left(Name2, InStr(1, Name2, " ") - 1) 'nur was vor dem Leerzeichen steht
Name2 = Mid(Name2, InStr(1, Name2, "_") + 1) 'nur was nach dem Underscore steht
For i = 1 To Len(Name1) Step 3
For j = 1 To Len(Name2) Step 3
If Mid(Name1, i, 3) = Mid(Name2, j, 3) Then Res = Res & Mid(Name1, i, 3)
Next
Next
Ähnlichkeit = Res
End Function
Sub test()
Dim erg
erg = Ähnlichkeit("KK10_01A02A03R08A10A13A18A20R22A36R 26636.csv", "KK10_01A02A03R14R15R20A27R36A37A40R 41119.csv")
MsgBox erg, Len(erg) / 3
End Sub

So wie "Ähnlichkeit" (Falls Überschneidung mit einer Excel-Formel, Name ändern) da steht, kann man es als UDF verwenden, also als ganz normale Excel-Formel.
Um als UDF verwendet werden zu können, muss der Code in einem Modul abgelegt werden (in-VB-Editor, "Einfügen", "Modul")
Wenn Du nur die Anzahl der Übereinstimmung relevant ist, dann "Res" und "Ähnlichkeit" As Integer definieren und Then Res = Res + 1
VG
Yal

Public Function Ähnlichkeit(ByVal Name1 As String, ByVal Name2 As String) As Integer Dim i, j Dim Res As Integer Name1 = Left(Name1, InStr(1, Name1, " ") - 1) 'nur was vor dem Leerzeichen steht Name1 = Mid(Name1, InStr(1, Name1, "_") + 1) 'nur was nach dem Underscore steht Name2 = Left(Name2, InStr(1, Name2, " ") - 1) 'nur was vor dem Leerzeichen steht Name2 = Mid(Name2, InStr(1, Name2, "_") + 1) 'nur was nach dem Underscore steht For i = 1 To Len(Name1) Step 3 For j = 1 To Len(Name2) Step 3 If Mid(Name1, i, 3) = Mid(Name2, j, 3) Then Res = Res + 1 Next Next Ähnlichkeit = Res End Function

Beliebteste Forumthreads (12 Monate)

Summe Zählenwenn: welcher Fehler?

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe Zählenwenn: welcher Fehler?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread