Minulla on A-sarakkeessa tietoa ja pitäisi saada etsittyä tietty aloitusmerkki esim ~290 ja poimittua sitä seuraavat merkit lopetetusmerkkiin asti (esim ~291) toiseen taulukkoon. Jos tieto olisi samalla rivillä, niin osaisin hakea ne, mutta näin en osaa. Eli alla olevasta esimerkistä pitäisi saada poimittua 430, 429, 439 ja 450 toiseen taulukkoon. Tämä on varmasti osaavalle yksinkertainen juttu..
A
1 610
2 ~290
3 430
4 429
5 439
6 450 ~291
7 500
8 550
Function OtaVälistä(Aineisto As String, Alkumerkki as String, Loppumerkki As String) As String
Dim Alku As Long
Dim Loppu As Long
Alku = InStr(1,Aineisto,Alkumerkki)
If Alku < 1 Then Exit Function 'Alkumerkkiä ei löytynyt
Alku = Alku + Len(Alkumerkki)
Loppu = InStr(Alku,Aineisto,Loppumerkki)
If Loppu < Alku Then Exit Function 'Loppumerkkiä ei löytynyt
Otavälistä = Mid(Aineisto, Alku, Loppu - Alku)
End FunctionAihe on jo aika vanha, joten et voi enää vastata siihen.