|
Hallo Jenne,
ein "in etwa so" ist für einen sicheren Ratschlag etwas unscharf. Ich nehme mal an, dass in jedem der zu untersuchenden Strings "Titel des Stellenangebots" genau einmal vorkommt und die Zeile unter diesen Wörtern der zu kopierende Teil ist.
Sei a der zu untersuchende String. Dann könnte folgendes Makro dein Problem lösen. Das Ergebnis steht in d und könnte von dort weiterverarbeitet werden.
a = Replace(a, Chr(160), " ") 'geschützte Leerzeichen in normale
a = Replace(a, Chr(11), vbCrLf) 'Zeilenwechsel in Absatzmarken
b = InStr(a, "Titel des Stellenangebots") + 26 'bestimmt Stelle des Zeichens nach Titel des Stellenangebots
If Mid(a, 26, 1) = Chr(13) Then b = b + 1 'steht hinter Titel des Stellenangebots eine Absatzmarke?
c = InStr(b, a, Chr(13)) - b 'bestimmt die Zeichenzahl bis zur nächsten Absatzmarke
d = Mid(a, b, c) 'extrahiert den Absatz nach Titel des Stellenangebots
MsgBox d 'nur zur Demonstration
Gruß
Holger
|