ich bin im Archiv auf einen beitrag gestoßen:
https://www.herber.de/forum/archiv/1740to1744/1741213_Suchen_und_Ersetzen_anhand_einer_Liste.html
Public Sub Ersetzen()
Dim i As Long
'Blattname anpassen
With ThisWorkbook.Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
'Dateiname und Blattname anpassen
Workbooks("Datei2.xlsx").Worksheets("Tabelle1").Cells.Replace What:=.Cells(i, 1), _
Replacement:=.Cells(i, 2), LookAt:=xlPart
Next i
End With
End Sub
Ich habe das nun mit dem Makro wie dort beschrieben auch ausprobiert und im Prinzip funktioniert es auch wie beschrieben.
Allerdings gibt es ein paar "Felder" mit Inhalt, die nicht 1 zu 1 ausgetauscht werden, deshalb meine Frage hier, wie die Inhalte der beiden zu vergleichenden Zellen genau abgeglichen werden. Wird aus der einen Liste der vollständige Zellinhalt genutzt um einen identischen Zellinhalt zu suchen und nur dann auszutauschen.
Ich glaube bei mir ist es so, dass ich zum Beispiel auch nur einzelne Buchstaben in einer Zelle habe zum Beispiel
"D" soll in "Diatomeen" getauscht werden, aber nicht jedes "D" in einer Zelle. Sondern nur wenn der Zellinhalt genau identisch ist.
Auch ist bei mir der Zellinhalt nicht immer nur einzelne Buchstaben oder Wörter sondern, es können mehrere Wörter sein, allerdings immer eindeutig.
Vielen Dank
Maggi