Wörter aus 2. Tabelle in 1. Tabelle finden und sortieren

[mediamat]

Hallo, 
ich möchte falls möglich folgendes mit Excel ausführen (Zeilen mit bestimmten Stadtteilen sollen aus eine Liste rausgefiltert werden):

Tabelle1:
Ort
Mitte
Marzahn
Zentral


Tabelle 2
Name            Ort
Bernd            Köpenick/Berlin
Werner          Mitte/Berlin
Paul               Marzahn/Berlin
Susi               Zentral/Hannover

Die Wörter aus Tabelle1 sollen in Tabelle2 gefunden werden und dann die gefundenen Zeilen in Tabelle2 zusammen untereinander aufgelistet werden.

Die Wörter beim Ort sind ohne Leerzeichen,das muss so erkannt werden.

Ich bin technisch geschickt kenne mich aber nahezu null mit Excel aus. Ich hoffe jemand kann helfen wie das geht.

[Frogger1986]

Leider ist dein Vorhaben etwas undurchsichtig! Bitte lade ein Beispiel hoch!

[mediamat]

Die Tabellen sehen genauso aus, nur mehr Zeilen und bei Tabelle2 noch ein paar weitere Spalten.
Aber es geht nur darum die Zeilen mit den Worten bei "Ort" (Spalte2) rauszuziehen. (Im gezeigten Fall würden bei Tabelle 2 die Zeilen 2,3,4 rausgezogen werden.)

Ich muss die Datei bissl anonymisieren dann kann ichs hochladen.Hoffe aber es ist auch jetzt schon bisschen klarer geworden.

[Fennek]

Hallo,

teste mal mit

Code:

Sub F_en()
Dim rng As Range
Ort = Sheets(1).UsedRange
With Sheets(2).UsedRange
.Offset(1).Font.Color = RGB(10, 10, 100)
   For i = 2 To UBound(Ort)
       Set rng = .Columns(2).Find(Ort(i, 1), , xlValues, xlPart)
       If Not rng Is Nothing Then rng.Font.Color = RGB(5, 5, 5)
   Next i
   .Cells(1, 2).Font.Color = RGB(5, 5, 5)
   .AutoFilter 2, Criteria1:=RGB(5, 5, 5), Operator:=xlFilterFontColor
End With
End Sub

mfg