Microsoft Excel

Herbers Excel/VBA-Archiv

suchen-ersetzen | Herbers Excel-Forum


Betrifft: suchen-ersetzen von: Petra
Geschrieben am: 01.12.2009 09:45:15

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

  

Betrifft: AW: suchen-ersetzen von: Peter Rücker
Geschrieben am: 01.12.2009 10:15:36

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


  

Betrifft: AW: suchen-ersetzen von: Rudi Maintaire
Geschrieben am: 01.12.2009 11:39:15

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


  

Betrifft: AW: suchen-ersetzen von: Petra
Geschrieben am: 01.12.2009 14:06:56

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