Guten Morgen,
könnt ihr mir bitte bei einem VBA-Problem helfen? Ich habe ein sehr großes Makro zur Vearbeitung von 2 Exportdateien.
Ein Bestandteil dieses Makros ist ein Suchen/Ersetzen Befehl. Dieser sollte eigentlich nur auf ein Tabellenblatt begrenzt werden. Das funktioniert aber nicht.
Hier der Code:
With Worksheets("Status").Range("I2:X" & LetzteZeile)
.Replace What:="freigegeben", Replacement:="bei NPP-M.", LookAt:=xlPart
.Replace What:="Prüfung NPP-Management", Replacement:="bei NPP-M.", LookAt:=xlPart
.Replace What:="Freigabe Regulärer Betrieb", Replacement:="abgen.", LookAt:=xlPart
.Replace What:="Freigabe Testphase", Replacement:="abgen.", LookAt:=xlPart
.Replace What:="initiiert", Replacement:="bei PB", LookAt:=xlPart
.Replace What:="in Prüfung", Replacement:="bei PB", LookAt:=xlPart
.Replace What:="bei ZAP Prüfbereich", Replacement:="bei PB", LookAt:=xlPart
End With
Der fett markierte Teil wird immer im gesamten Tabellenblatt ersetzt. Kann man das verhindern?