Hallo,
ich habe folgendes Makro für "Ersetzen" mit dem Recorder aufgezeichnet.
Kann mir bitte jemand sagen, ob das ganze auch kürzer und ohne die ganzen "Selection" geht?
Columns("H:H").Select
Selection.Replace What:="Hr.", Replacement:="Herr", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Hr", Replacement:="Herr", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Fr.", Replacement:="Frau", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Vielen Dank und Grüße
Georg