ich möchte gerne in allen Zellen von mehreren Blättern nach einen Teil einer Formel suchen und
diesen dann ersetzen. Hierzu habe ich folgenden Code bisher, aber ohne Funktion:
Dim rngFund As Range
Dim rngBereich As Range
Dim strSuch As String
Dim wks As Worksheet
Dim ActSheetname As String
Dim cell As Range
Dim sStartpage As String
sStartpage = sName("Startseite")
sStartpage = sDblApostroph(sStartpage)
For Each wks In ActiveWorkbook.Worksheets
ActSheetname = wks.Name
If InStr(ActSheetname, "protokoll") Or InStr(ActSheetname, "protocol") Or InStr(ActSheetname, " _
PV ")Then
Call UnProtectSheet(ActSheetname)
ActiveSheet.Cells.Replace What:="
Was mach ich hier falsch? Oder muss ich den Inhalt des Feldes in zwei Teile auftrennen und dann den gesuchten Teil ersetzen und
wieder zusammen bauen?
Gruß Jörg