Gut, Michael, dann melde Ich mich doch ncohmal dazu.
Versuche folgendes:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Sub FindReplace()
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
End Sub
|
KURZFORM:
1 2 3 4 5 6 7 8 9 10 11 12 | 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
End Sub
|
|