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