Thema Datum  Von Nutzer Rating
Antwort
Rot Blatt nach doppelten Werten durchsuchen und ersetzen
07.01.2019 22:59:46 Tilman
NotSolved
07.01.2019 23:57:40 Werner
NotSolved
08.01.2019 10:40:38 Gast48902
Solved

Ansicht des Beitrags:
Von:
Tilman
Datum:
07.01.2019 22:59:46
Views:
61
Rating: Antwort:
  Ja
Thema:
Blatt nach doppelten Werten durchsuchen und ersetzen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Blatt nach doppelten Werten durchsuchen und ersetzen
07.01.2019 22:59:46 Tilman
NotSolved
07.01.2019 23:57:40 Werner
NotSolved
08.01.2019 10:40:38 Gast48902
Solved