Gut, Michael, dann melde Ich mich doch ncohmal dazu.
Versuche folgendes:
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.
Dim wks As Worksheet
Set wks = ActiveSheet
'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
KURZFORM:
Sub shortFindReplace()
Dim wks as Worksheet
Set wks = ActiveSheet
Cells.Replace What:="Forgot Password?", Replacement:="Passwort vergessen?" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Remember Me", Replacement:="Merken" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'Thired replacement
End Sub
|