Probleme beim VBA Code mit Suchen Ersetzen

[dertommy]

Hallo!

Ich möchte gerne folgenden Text mittels VBA ersetzt haben.

"M")));2);"0,00") & " pro Monat)"
 
durch

"D")));2);"0,00") & " pro Tag)"

Ich habe deshalb ein Makro aufgezeichnet und dieses hat mir folgenden Code bereitgestellt:

Code:

Sub Makro277()
'
' Makro277 Makro
'

'
   Cells.Replace What:="""M"")));2);""0,00"") & "" pro Monat)""", Replacement _
       :="""D"")));2);""0,00"") & "" pro Tag)""", LookAt:=xlPart, SearchOrder:= _
       xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Aber leider tut sich nichts, wenn ich das Makro ausführen. Wenn ich es manuell ohne Makro mache, funktioniert es.

Ich hoffe, dass mir jemand helfen kann.

LGThomas

[UweD]

Hallo

bei mir klappt es.

kann es sein, dass du dich auf einem anderen Blatt befindest.

Am Besten mit angeben...

Code:

  Sheets("Tabelle1").Cells.Replace What:="""M"")));2);""0,00"") & "" pro Monat)""", Replacement _
      :="""D"")));2);""0,00"") & "" pro Tag)""", LookAt:=xlPart, SearchOrder:= _
      xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

LG UweD

[dertommy]

Hallo!

Nein, ich befinde mich auf dem gleichen Blatt. Auch wenn ich den Blattnamen mit reinschreibe, funktioniert es nicht.
Was kann es sonst noch für Gründe geben? An der Datenmange? Es ist eine große Datei.