Sub
IBAN()
Dim
strText, strVgl
strText =
"Hallo liebe Community!Ich bräuchte eure Hilfe wie ich ein Text einlese und in dem Text die .... rauslese und die .... dann in einer Zelle in einem Excel-sheet kopiere. Die .... befindet sich irgendwo jedes Mal in einem Text und ich muss es rausfinden.Beim konvertieren von PDF zu txt kommt es dazu das nach .... entweder ein , oder : kommt. Bsp: IBAN , 1234567891234567890123 oder IBAN: 123456789123456789012 also 22 stellen danach. Ich muss das in vba realisieren und weiß nicht wie ich da rangehe um die 22 stellen rauszufinden nach dem , oder : die jeweils nach dem Wort .... auftauchen. Ich danke euch vielmals im Voraus "
Dim
x
strVgl = Replace(strText,
"IBAN , "
,
"IBAN"
)
strVgl = Replace(strVgl,
"IBAN: "
,
"IBAN"
)
Do
x = x + 1
x = InStr(x, strVgl,
"IBAN"
)
If
x <> 0
Then
Debug.Print Mid(strVgl, x + 4, 22)
Loop
Until
x = 0
End
Sub