Hallo Excelfreunde,
ich benötige Hilfe bei einem angepassten VBA Code.
Ich habe über Suchen und Ersetzen einige Zellenänderungen durchgeführt und aufgezeichnet.
Die Änderungen funktionieren soweit auch.
Wenn ich aber das Dokument neu öffne ignoriert das Makro jedes mal die Umformatierung der Zellenhintergrundfarbe.
Woran kann das liegen?
Danke und Grüße Wiesel
Code:
Dim
ws
As
Worksheet
For
Each
ws
In
Worksheets
If
ws.Index > 2
Then
ws.Activate
Range(
"E7:AI28"
).
Select
With
Application.ReplaceFormat.Font
.Name =
"Arial"
.Size = 7
.Subscript =
False
.ThemeColor = 2
.TintAndShade = 0
<strong>
With
Application.ReplaceFormat.Interior.ColorIndex = 5296274
Selection.Replace What:=
":"
, Replacement:=
"x"
, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=
True
, SearchFormat:=
False
, _
ReplaceFormat:=
False
Selection.Replace What:=
"q"
, Replacement:=
"y"
, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=
False
, SearchFormat:=
False
, _
ReplaceFormat:=<strong>
True
</strong>
usw.
End
With
End
With