Office: Suchen und Ersetzen per Makro mit Wert einer bestimmten Zelle

Hallo zusammen,
kann ich in einem Blatt über ein Makro alle bisherigen Werte (z.B."xxx") durch einen neuen Wert ersetzen, der in einer bestimmten Zelle b2 steht (z.B. "yyy")

Vielen Dank für einen Hinweis.
*cool.gif*

:)

 

Hallo Jens,

With Worksheets("Tabelle1")
.UsedRange.Replace What:="xxx", Replacement:=.Range("B2"), LookAt:=xlWhole
End With





« Gruß Sepp »

 

Hallo Sepp,

Danke.

Wie modifiziere ich das, wenn statt "xxx" zum ersetzen hier nun der Zellwert der Zelle d1 verwendet werden soll?

Gruß Jens

 

Hallo Jens,

na da könnte man mit etwas Nachdenken aber schon selber draufkommen.

What:=.Range("D1")




« Gruß Sepp »

 

Hallo Sepp, das hatte ich mir sogar gedacht, nur hat es nicht geklappt.

Ich habe nun in D1 einen Wert stehen, der nun überschrieben wird, aber nicht als Quelle genommen wird, für suchen/ersetzen

Auch geht es nicht in der Form:

.UsedRange.Replace What:="xxx.xls", Replacement:=.Range("B2"), LookAt:=xlWhole

Obwohl nun in den Zellen immer "xxx.xls" vorkommt ersetzt mir das Makro das nicht mehr mit dem Wert, der in B2 steht.

Das Makro klappt nur beim ersten Mal, aber nicht zurück.

Irgendwo habe ich wohl einen Denkfehler....

So sieht z.B. eine Zelle aus:
='D:\Eigene Dokumente\My Dropbox\Cashflow-Modell\[xxx.xls]Input'!W36

In B1 steht: CF_694.xls

und ich versuche es so:

.UsedRange.Replace What:="xxx.xls", Replacement:=.Range("B2"), LookAt:=xlWhole

Und so hatte ich es auch probiert:
.UsedRange.Replace What:=Range("A1"), Replacement:=.Range("B1"), LookAt:=xlWhole

wobei ich das D1 bewusst in A1 gtauscht habe, weil mein Wert in A1 steht (D1 war ein Irrtum)

 

Hallo jens,

wenn du nur nach Teilstrings suchts, was du nicht erwähnt hast, musst du

LookAt:=xlPart

schreiben.





« Gruß Sepp »

 

Hallo Sepp,

Danke!

Kann ich noch das Makro so modifizieren, dass es nicht im gesamten Blatt, sondern nur im Bereich A2:AM1000 angewendet wird?

Gruß Jens

 

Hallo Jens,

statt .UsedRange einfach .Range("A2:AM1000")




« Gruß Sepp »

 

Hallo Sepp,

vielen Dank. Hat geklappt.

Gruß Jens