Suchen und Ersetzen von Preisen

[Boingdil]

Guten Morgen zusammen,

ich steh mal wieder auf dem Schlauch. Ich möchte mir ein Makro schreiben bei dem Preise in einer Email entfernt werden die ich weiterleiten möchte.
Ich kann vba nur nutzen indem ich das makro aufzeichne und mir aus diesen einzelnen Makros dann ein komplettes zusammen stelle. Also Erfahrung = 0.

Diesmal scheitere aber schon bei der normalen Suchen und Ersetzen Funktion.

Die Schreibweise ist immer unterschiedlich z.B.:
1.255,00 €
40,00 €
€5496.80
€496.80
€924.60 durchgestrichen
€0.00

Ich habe folgenden Möglichkeiten genutzt :
(*^s€)
(€??????[0-9.,])

Ich finde irgendwie keine Möglichkeit alle Schreibweisen anzusprechen. Habt Ihr eine Idee ?

Schonmal vielen Dank für Eure Hilfe
Gruß Boingdil

[MarkMH_K]

Hi,

wenn die Preise am Ende einer Zeile/eines Absatzes stehen, bräuchtest Du nur nach dem Eurozeichen zu suchen, bis ans Ende erweitern (ohne das Steuerzeichen mitzunehmen) und die Markierung löschen.
Du könntest auch nach dem Eurozeichen suchen, die Markierung um zwei Wörter nach links/rechts erweitern und löschen.

M.

[theoS]

Suchen/Ersetzen, Einstellen: Mit Mustervergleich.
Dann suchst du zwei mal:
Suchen nach: €[0-9]*.*[0-9]>
Ersetzen durch: Leer lassen.
das deckt die ab: €5496.80

Dann gehst du auf die anderen los:
Suchen nach: [0-9]*[0-9] €
Ersetzen: Leer lassen
Das kannst du mal ausprobieren, bzw. wenns funktioniert, auch aufzeichnen. Word merkt sich das dann für dich.

[Boingdil]

Danke genau das was ich gebraucht habe.
Das Marko dazu funktioniert auch.
Dann versuch ich das jetzt mal weiter umzusetzen.

Vielen Dank nochmal
Gruß Boingdil