Hi,
bin mal so frei:
Sub FindReplace()
'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.
'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
|