ähnliche Werte finden

Hallo Excel-Gemeinde,
ich habe folgendes Problem:
Es sind von ca. 100 Balkonen insgesamt ca. 700 Balkonplatten abgenommen worden.
Diese wurden zwar beschriftet um sie später wieder zuordnen zu können, jedoch haben die Auszubildenen diese Beschriftung entfernt.
Nun habe ich 700 Balkonplatten die ich wieder zuordnen muss.
Als funktionierendes System hat sich herausgestellt, dass die Bohrlöcherabstände alle leicht differieren. Anhand von zwei verschiedenen Bohrungsachsen kann ich die Platten mit einer recht hohen Wahrscheinlichkeit den jeweiligen Balkonen wieder zuordnen (Feldversuch :-))
Da ich bereits alle Balkone und alle Platten vermessen habe, suche ich nun eine "schlaue" Formel um die Platten zuordnen zu können.
Ich habe mal eine Tabelle hochgeladen, in der man links die Balkonplatten hat und rechts die Balkone.
Die Bohrachsen habe ich mit X1 und X2 tituliert.
Der Grundgedanke ist folgender:
Vergleiche den Bohrachsabstand X1 der Brüstungsplatte mit allen X1 Werten der Balkone. Interessant sind alle X1 Werte die plus/minus 2 mm sind.
Die gleiche Berechnung möchte ich mit den X2 Werten vornehmen.
Die jetzt ermittelten Ergebnisse möchte ich dann ebenfalls miteinander vergleichen. Sofern es Übereinstimmungen gibt (X1 und X2 Werte passen beide plus/minus 2mm zusammen) sollen die Platten / Balkone ausgeworfen werden.
Klingt kompliziert....ist es auch.
Ich habe es bereits mit Vergleich probiert, jedoch bekomme ich hier immer nur den ersten Wert. Da aber mehrere Werte vorhanden sein können, stehe ich vor einem Problem.
Ich würde mich freuen, wenn ihr mal einen Blick raufwerfen könnt, und würde mich riesig über konstruktive Antworten freuen.
https://www.herber.de/bbs/user/85029.xlsx
Schönen Gruß
Hansi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Hansueli,
das ist die Frage, gilt "Kleiner als" oder "Kleiner als bis Inklusive"?
Ich wollte "kleiner als bis inklusive" nehmen, habe also mit ~f~ Du hast aber recht. Ersetze ich im Code jedes Der vollständigkeit halber hier der neue Code (indem ich noch 2 andere Sachen optimiert habe):

Option Explicit
Private Sub CommandButton1_Click()
Dim rBalkon As Range
Dim lPlattenF As Long
Dim lPlattenL As Long
Dim iColPlNr As Integer
Dim iColPlX1 As Integer
Dim iColPlX2 As Integer
Dim iColBaX1 As Integer
Dim iColBaX2 As Integer
Dim iColBreitPl As Integer
Dim iColBreitBa As Integer
Dim iColAusgabe As Integer
Dim lBalkonF As Long
Dim lRow As Integer
Dim dToleranz As Double
Dim r As Range
Dim y As Long
'***** Variablen definieren (Spalten und Zeilenindices) ****
iColPlNr = 2                    'Spalte der Plattennummer
iColPlX1 = 4                    'Spalte für Mass X1 der Platte
iColPlX2 = 5                    'Spalte für Mass X2 der Platte
iColBaX1 = 13                   'Spalte für Mass X1 des Balkons
iColBaX2 = 14                   'Spalte für Mass X2 des Balkons
iColBreitPl = 3                 'Spalte für Plattenbreite (im Beispiel leer!)
iColBreitBa = 17                'Spalte für Balkonbreite (im Beispiel leer!)
lPlattenF = 4                   'ab dieser Zeile Platten
iColAusgabe = 15                'Spalte der Ergebnisse
lBalkonF = 4                    'ab dieser Zeile Balkone (für die Ausgabe)
dToleranz = 0.2                 'Toleranz in cm
lPlattenL = Cells(Rows.Count, iColPlNr).End(xlUp).Row   'bis hier Platten (automatisch)
lRow = Cells(Rows.Count, iColBaX1).End(xlUp).Row        'Anzahl Balkon-Zeilen (automatisch)
'alle Zellen in denen Balkon-Platten ausgegeben werden (automatisch bis zur letzten Zeile)
Set rBalkon = Range(Cells(lBalkonF, iColAusgabe), Cells(lRow, iColAusgabe))
'Gehe alle Balkone durch
For Each r In rBalkon
r.Value = ""
'Gehe alle Platten durch (für jeden Balkon)
For y = lPlattenF To lPlattenL
'Vergleiche Breite (leider im Muster nicht angegeben!)
If Cells(y, iColBreitPl).Value = Cells(r.Row, iColBreitBa).Value Then
'Vergleiche X1 um +2mm
If Not Cells(y, iColPlX1).Value > (Cells(r.Row, iColBaX1).Value + dToleranz) Then
'Vergleiche X1 um -2mm
If Not Cells(y, iColPlX1).Value  (Cells(r.Row, iColBaX2).Value + dToleranz) _
Then
'Vergleiche X1 um -2mm
If Not Cells(y, iColPlX2).Value

Grüße,
Klaus M.vdT.
EDIT: ich versteh die Tilde-F Regelung von Herber offensichtlich nicht.

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ähnliche Werte finden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread