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
|