Thema: suchen-ersetzen | Herbers Excel-Forum

Guten Morgen

Sub Makro6()
Cells.Replace What:="otto", Replacement:="=Z(-1)S", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

dieses Makro(aufgezeichnet) funktioniert nicht. Händisch klappt alles, auch während der Aufzeichnung!
Bin völlig ratlos! Ich will doch nur "otto" mit einer Formel austauschen.
Könnt Ihr mir weiterhelfen?
Schönen Tag noch
Petra

Hallöchen Petra,
weiß zwar nicht, ob ich jetzt auf dem richtigen Pfad bin, aber die Formel wie Du sie verwendest kann nicht funktionieren. Was ist bitte "Z(-1)S"?
Gruß
Peter

Hallo,

Sub Makro6()
Dim rFind As Range, rReplace As Range, sFirst As String
Set rFind = Cells.Find("otto", after:=Cells(1, 1), lookat:=xlWhole, searchdirection:=xlNext)
If Not rFind Is Nothing Then
sFirst = rFind.Address
Set rReplace = rFind
Do
Set rFind = Cells.FindNext(rFind)
Set rReplace = Union(rReplace, rFind)
Loop While Not rFind Is Nothing And rFind.Address <> sFirst
rReplace.FormulaR1C1 = "=R[-1]C"
End If
End Sub

Gruß
Rudi

Hallo Rudi
vielen DANK, funktioniert prima!
einen schönen Tag noch wünscht
Petra