Inhat ersertzen und formatieren
Jürgen
Ich habe eine Tabelle mit 5 Spalten.
In der erste Spalte, und nur in dieser, soll Text ersetz und gleichzeitig formatiert werden.
Trotz Makroaufzeichnung wird in allen 5 Spalten ersetzt.
Wo liegt der Fehler?
Vielen Dank
Jürgen
Sub Makro8()
' Makro8 Makro
Columns("A:A").Select
With Application.ReplaceFormat.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.Color = 16711680
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.Replace What:="180", Replacement:="180er", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Selection.Replace What:="HF", Replacement:="High Finish", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Selection.Replace What:="BF", Replacement:="Bull Finish", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Selection.Replace What:="LD", Replacement:="Low Darts", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Selection.Replace What:="HS", Replacement:="High Score", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Range("A6").Select
End Sub
Anzeige