Vergleiche in 14 Tabellen und gib Namen aus

Hej, Leute... :)
Heute habe ich eine kleine Herausvorderung, die ich derzeit nicht alleine gelöst bekomme.
Folgende Situation:
Ich habe eine Datei bekommen, in der etwa 1400 Firmenadressen unserer Kunden aufgelistet sind.
Leider wurden im Rahmen einer Systemerneuerung die Ortsteile nicht mit übertragen, die sind aber für die Tourenplanung entscheident.
Die Datei beinhaltet: (die Tabelle mit den Firmenadressen habe ich entfernt, die Formel kann ich ja nachher übertragen)
1 Tabelle mit allen Straßennamen eines Postleitzahlengebietes (die erste Tabelle)
18 Tabellen, nach Ortsnamen benannt mit den ortszugehörigen Straßennamen
In allen 19 Tabellen liegen die Daten in Spalte A.
Nun möchte ich, dass Excel in der ersten Tabelle Spalte B den Namen derjenigen Tabelle ausgibt, in der die Straße aus der Zelle links neben an übereinstimmt.
Dazu soll aus den Tabellen 2 bis 19 geschaut werden, ob die entsprechende Straße vorhanden ist.
Ich kann mir vorstellen, dass ich in den Ortstabellen, so nenne ich die Tabellen 2 bis 19 mal, in A1 den Ortsteil hineinschreibe oder vielleicht komplett in den einzelnen Tabellen in Spalte B kopiere...
Ich habs mit Monsterformeln versucht, aber bei 19 Tabellen macht Excel mit SVERWEIS dicke Backen...
Ich lege die Datei mal dazu, damit Ihr Euch ein besseres Bild machen könnt. Meine beiden Versuche, die kläglich gescheitert sind, findet ihr ebenfalls in Tabelle 1 ("Alle Straßen")
Selten melde ich mich, aber dieses Mal bin ich echt überfordert...
Danke schön jetzt für Eure schnelle Hilfe!!!
Christian
Hier die Datei: https://www.herber.de/bbs/user/123659.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim lZ As Long, i As Long, b As Boolean, ws As Worksheet With Tabelle1 lZ = .Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lZ b = False For Each ws In ThisWorkbook.Worksheets If ws.Name .Name Then If WorksheetFunction.CountIf(ws.Columns(1), .Cells(i, 1) & " ") Then b = True Exit For End If End If Next ws If b Then .Cells(i, 2) = ws.Name Else .Cells(i, 2) = "kein Match" End If Next i End With End Sub

Hallo Christian
schau dir bitte mal meine Beispieldati mit einer VBA Lösung an. Es gibt zwei Makros!!
Bei der Datenmenge weiss ich nicht welches von beiden schneller laeuft?
Ich habe in Spalte AP eine Prüfpalte angelegt, wo man sieht ob Strassen nicht gefunden wurden.
Bei doppelten Strassen, in zwei Orten, kommt eine MsgBox als Fehlermeldung, wird Nicht gelistet!
Wenn Strassen nicht gefunden wurden wird zum Schluss die Anzahl angezeigt.
Die Daten aus den Ortsteilen musste ich mir zum Testen in Tabelle1 kopieren. Deine klappten nicht!
Probier bitte am besten im Beispiel mit deinen echten Daten aus ob alles so klappt wie gewünscht.
Würde mich freuen wenns klappt.
https://www.herber.de/bbs/user/123662.xlsm
mfg Hans

Beliebteste Forumthreads (12 Monate)

Vergleiche in 14 Tabellen und gib Namen aus

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread