Suchen und Ersetzen in allen Zeilen und Spalten in VBA

Question

Ich habe eine Liste von Projekten, die von 1 bis 90. Alle Formeln in der gleichen Zeile für jedes Projekt bis Spalte 200 sollte Formel Verknüpfung mit der richtigen Projektnummer enthalten. Zum Beispiel:

A1:

Project 1 

B1:

=IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (1).xlsm]Nov 17'!$D$3;" ") 

C1:

=IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (1).xlsm]File_Setup'!$D$17;" ")` 

A2:

Project 2 

B2:

=IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (2).xlsm]Nov 17'!$D$3;" ") 

C2:

=IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (2).xlsm]File_Setup'!$D$17;" ") 

und so weiter bis zu 90 Projekte.

Derzeit verwende ich

Sub macro() 
    ActiveCell.Range("A31:BH90").Select 
     Selection.Replace What:="Project (1)", Replacement:="Project (2)", LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=False 
    ActiveCell.Offset(62, 0).Range("A31:BH90").Select 

end sub 

und es scheint nicht zu funktionieren. Ich bin absolut neu in VBA, also werde ich jede Hilfe zu schätzen wissen. Danken!

Answer 1

Versuchen:

Sub Macro() 
    ActiveCell.Range("A1:BH90").Select 
     Selection.Replace What:="Project (1)", Replacement:="Project (2)", LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=False 
    ActiveCell.Offset(62, 0).Range("A1:BH90").Select 

End Sub