Clever-Excel-Forum

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.

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

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.

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

mediamat

Frogger1986

mediamat

Fennek