Hallo zusammen,

ich bräuchte einmal eure Hilfe. Es geht darum, dass ich mehrere Exel Tabellen habe, bei denen in Spalte A englische Wörter stehen und in den Spalten B-? übersetzungen. Für meine weiterführende Arbeit muss ich die Dateien so bereinigen, dass jedes deutsche Wort nur einmal vorkommt.

Ich würde nun gerne einen Makro schreiben, der für jede Zelle folgendes macht. Den Zelleninhalt (das Wort) suchen und alle gefundenen gleichen Worte mit nichts ersetzen, und dann das Wort wieder in die erste Zelle wo es gefunden wurde schreiben. Sodass es am Ende nur einmal in der Tabelle steht und alle identischen Worte gelöscht sind.

In dem Beispiel stand in "B1" jetzt authenti*. Für die eine Zelle funktioniert das auch, aber leider weiß ich nicht, wie ich das Makro für das gesamte Blatt automatisieren könnte.

Sub delete_and_rewrite()
'
' delete_and_rewrite Makro
'
'
    Range("B1").Select
    Selection.Copy
    Cells.Replace What:="authenti*", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("B1").Value = "authenti*"
End Sub


Vielen Dank für die Hilfe
LG Tilman