Ich habe in einem Tabellenblatt jede Menge Namen.
In einem anderen Tabellenblatt wird vor oder hinter die Namen teilweise etwas geschrieben.
Jetzt suche ich eine Möglichkeit, alle Namen aus der ersten Liste mit dem Inhalt der zweiten Zelle vergleichen und sehen, ob einer der Namen ein Teilbegriff der Zelle ist.
Wenn eine Übereinstimmung gefunden wurde, soll der zweite Begriff durch den originalen Namen ersetzt werden.
Es gibt keinen Namen 2x, wenn doch haben sie immer Erweiterungen.
Da der Fehler vorne und hinten sein kann, weiß ich nicht, wie man das am besten prüft.
Mein Ansatz war folgender, der aber Fehler vorne nicht berücksichtigt.
Sub Namen_prüfen_m3()
For Name = 1 To 200
Start1:
Set Rng = Worksheets("Mitarbeiter").Range(Worksheets("Mitarbeiter").Cells(1, 2), Worksheets("Mitarbeiter").Cells(200, 2)).Find(what:=Worksheets("S").Cells(Name, 1), lookat:=xlPart, LookIn:=xlValues, MatchCase:=True)
If Not Rng Is Nothing Then GoTo nächster1
Mitarbeiter = Left(Worksheets("S").Cells(Name, 1), Len(Worksheets("S").Cells(Name, 1)) - 1)
Worksheets("S").Cells(Name, 1) = Mitarbeiter
GoTo Start1
nächster1:
Next Name
End Sub
Kann mir jemand helfen?MfG
Karsten