Teil eines Feldes in mehreren Blättern ersetzen
Jörg
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:="Oder muss ich den Inhalt des Feldes in zwei Teile auftrennen und dann den gesuchten Teil ersetzen und
wieder zusammen bauen?
Gruß Jörg
Anzeige