Suchen u. Ersetzen via Makro mit 2 Blättern

[dennis_ca]

Hallo zusammen,

mein Name ist Dennis, ich bin neu hier :19: 

Mein Anliegen ist folgendes:

Ich möchte in Blatt A einen Text einfügen in welchem Begriffe mehrfach vorkommen.
Bsp. TOOL 1, TOOL 2 usw.

Nun habe ich in Blatt B eine Tabelle in welcher steht das TOOL 1 von nun an TOOL 11 werden soll usw.
hier möchte ich via Makro einen Automatismus reinbringen.

Mein erster Versuch war folgender:


Worksheets("T_Nummern_tauschen").UsedRange.Replace "TOOL 1 ", "TOOL 11 ", xlPart, , True

funktioniert zwar theoretisch, allerdings müsste ich dann ca. 200 dieser Sätze in das Makro bringen und händisch auf die Passenden Nummern ändern.
Außerdem greift das Makro so nicht auf Blatt B zu.

Äußerst wichtig hierbei ist das wenn ich z.B. TOOL 1 auf TOOL 11 geändert habe und eine weitere Abfrage kommt in der das "alte" TOOL 11 auf TOOL 16 geändert werden soll, dass "neue" nicht wieder überschrieben wird.

Hoffe ihr könnt mir hier weiter helfen.
In Voraus schonmal danke.

Gruß Dennis

[schauan]

Hallöchen,

dafür kannst Du eine Schleife benutzen.

Code:

For iCnt = 1 to 10 '10 Zeilen
  With Sheets("B")
  'hier Dein Code, eventuell musst Du noch Leerzeichen einfuegen: " " & Cells... & " "
    Worksheets("T_Nummern_tauschen").UsedRange.Replace .Cells(icnt, 1).value, .Cells(icnt, 2).value, xlPart, , True
  End With
Next