VBA - Teil aus String entfernen

[Klaus]

Guten Morgen miteinander.

Wie kann man aus einer Spalte, aus einem String, nur die Zahl die hinter einem bestimmten Zeichen steht kopieren und in eine andere Spalte übergeben?


Ziel: 
der Text steht in A:A
der Text soll nach H:H
das Wort "P1" ist das Schlüsselwort. 
Nur die Zahl hinter "P1" soll in die anderen Spalte übergeben werden. 
Hinter der Zahl nach P1 kommt immer ein "|M"

Bsp Text:
"das ist ein P1=130|M1255...und hier steht 5587noch mehr251d"


Die Zahl hinter "P1=" kann ein bis vierstellig sein.
Der Text vor "P1" ist verschieden lang.

Ist sowas machbar?

Liebe Grüße
Klaus

[00202]

Hallo,

eventuell so:
[attachment=38594]

[Klaus]

Herzlichen Dank Case,

es funktioniert fast perfekt.
Wie ich sehe, hast du das am "=" festgemacht.
Ich hätte erwähnen sollen, dass auch sowas "|-| 1 = {{" vorn weg stehen kann.
Sorry 

Gibt es hier auch eine Lösung?

[00202]

Hallo Klaus,

dann so:
[attachment=38595]

[Klaus]

Vielen Dank Case,

ich komme erst nachher dazu das zu testen.
Ich gebe dann aber auf jeden Fall noch eine Rückmeldung.

bis dahin
Klaus

[Klaus]

Hallo Case,

ich kann mir jetzt zwar keinen Reim mehr auf den Code machen, aber ich werde das schon raus bekommen. 
Auf jeden Fall funktioniert es fantastisch.

Vielen herzlichen Dank