@ Sepp: Problem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Franz,
beim Test ist mir noch eine Konstellation aufgefallen, die nicht ganz rund läuft. Darauf hattest Du aber schon hingewiesen, frage wäre nur ob man da was dran drehen kann.
Dein Makro nimmt immer die erste Fundstelle und verweist auf mögliche weitere Fundstellen nur hin. Kann man so machen, dass der gesamte rote Bereich im zweiten Reiter erst durchlaufen und geprüft wird und die Zeile genommen wird, die die meiste Trefferquote hat?
Also derzeit sieht es so aus:
Quelle TMT MUD PTE
Ziel1 TMT = wird dann direkt gezogen und auf eine zweite Fundstelle verwiesen
Ziel2 TMT MUD = wäre die richtige (höchste Übereinstimmung) wird aber nicht gezogen
Toll wäre, wenn die Zeile gezogen wird, die die höcjhhste Übereinstimmung hat.
Ausserdem wäre es prima, wenn Du den zu prüfenden Bereich von 5 auf 8 ausdehen könntest. Bin mir nicht sicher, ob ich alle Stellen im Code erwischen. Die Anpassung der Namen kriege ich hin.
Könntest Du da noch einmal schauen?
Vielen lieben Dank!
Liebe Grüße
Claudia

Hallo Claudia,
einrichten kann man viel.
Aber ich verstehe nicht genau was du meinst:
Lässt es sich einrichten, dass Quellbezeichnungen aus Reiter1 mit allen Quellbezeichnungen in Reiter2 gegengeprüft werden?

Sollen einfach nur die Treffer gezählt werden? Dabei müssen dann aber nicht alle Begriffe in Reiter 2 in der Auswahlliste vorkommen?
Dann folgenden Abschnitt anpassen:

      'mindestens ein Eintrag in Q1 bis Q8 vorhanden
bTreffer = False
'Werte in Spalte 1 bis 8 im Testbereich suchen
For Spalte = 1 To iAnzQwerte
If .Cells(Zeile_D, Spalte)  "" Then
'Verglichen wird auf "Beginnt mit", da im Testbereich auch Einträge vorhanden sind, _
die zusätzlich zum Text noch Zahlenwerte enthalten.
'ggf. im Testbereich die Zahlenwerte weglassen und das  & "*"  weglassen.
If rTestDaten.Find(What:=.Cells(Zeile_D, Spalte).Value & "*", LookIn:=xlValues, _
Lookat:=xlWhole) Is Nothing Then
Else
bTreffer = True
AnzTreffer = AnzTreffer + 1
End If
End If
Next Spalte

Reiter2:
TMT1
TMT2
TMT3
wird jetzt schon gefunden.
Reiter2:
TMT1
TMT3
TMT2
Stimmt auch überein als ganzes, wird aber nicht gefunden.

Die Reihenfolge der Begriffe in Reiter 2 spielt keine Rolle beim Zählen und Finden. Allerdings gilt jetzt:
Wenn die max. Anzahl von Treffern in 2 Zeilen gleich ist, dann wird die 1. Zeile mit der max. Anzahl als Ergebnis ausgegeben.
steht in Zeile 5
TMT1 TMT2 TMT3
und in Zeile 11
TMT1 TMT3 TMT2
Dann wird als Ergbnis die Zeile 5 ausgegeben.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread