Hvordan laver man automatisk søg og erstat kørsel i excel

Via VBA kan man. "Automatisk" - hvordan forestiller du dig dette?

ja, med en VBA macro...

Lav et loop der looper igennem alle celler, og hver gang den støder på en celle der har det eftersøgte indhold skifter den celleindholdet. Hver gang du kører macroen, skifter den alt ud

Men er der ikke nemmere at lave en manuel søg og erstat 4 gange?

En anden måde: Lav en macro, der kører en søg og erstat 4 gange efter hinanden:

[code]

Cells.Replace What:="UKord1", Replacement:="DKord1", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False


Cells.Replace What:="UKord2", Replacement:="DKord2", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="UKord3", Replacement:="DKord3", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="UKord4", Replacement:="DKord4", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False



[/code]

Den der code - formatering fucker det hele op - prøver igen:


Cells.Replace What:="UK-ord1", Replacement:="DK-ord1", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    Cells.Replace What:="UK-ord2", Replacement:="DK-ord2", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    Cells.Replace What:="UK-ord3", Replacement:="DK-ord3", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    Cells.Replace What:="UK-ord4", Replacement:="DK-ord4", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

hallo?

svartiderne skal vidst forbedres fra min side... beklager