suchen und ersetzen
16.03.2022 11:07:55
Dom
Ich möchte meine Spaltenüberschriften ersetzen ohne direkt die Zelle anzusprechen, da sich die Reihenfolge ändern kann.
Die Überschrift "Ident" in "FS Ident" ersetzen funktioniert.
Die Überschrift "Gover Location of Area" in "Location of Area" funktioniert nicht, da
"Gover(hier Absatz)Location of Area" in der Zelle mit einem Absatz steht.
"Gover
Location of Area"
Bei manuellem entfernen des Absatzes, in dem Formelfeld, funktioniert das Ersetzen. "Gover Location of Area"
Wie kann ich den Absatz mit geben ? Selection.replace What:="Gover (Absatz) Location of Area", Replacement:="Location of Area"
Vielen Dank !
Sub suchenersetzen()
Cells.Select
Selection.ClearFormats
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.replace What:="Ident", Replacement:="FS Ident", LookAT:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.replace What:="Gover Location of Area", Replacement:="Location of Area", LookAT:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Anzeige