Hallo Community,
ich möchte gern mehrere Wörter in einem Tab ersetzen, was jedoch meine Kenntnisse übersteigt.
Ich suche nach einem Endlos-string der Wort für Wort durchgeht und ersetzt.
Um das besser zu verdeutlichen, anbei ein record.
Vielen Dank schon einmal.
Sub FindReplace()
'First replacement
Sheets("LookUp").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Replacement").Select
Cells.Replace What:="Forgot Password?", Replacement:="Passwort vergessen?" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'Second replacement
Sheets("LookUp").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Replacement").Select
Cells.Replace What:="Remember Me", Replacement:="Merken" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'Thired replacement
'...
'...
End Sub |