Getallen uit tekst reeks halen

[steven1981]

Zou iemand mij kunnen helpen met het volgende probleem.

Op internet en andere forums heb ik wat dingen kunnen lezen over het uitlezen van één getal uit een tekst reeks. Vaak wordt er een postcode of huisnummer bedoeld.

Nu heb ik volgende:
In 1 regel staan meerdere getallen die ik verder wil gebruiken in mijn berekening.
het eerste getal is een product code, daarna volgt de omschrijving van het product het aantal bestelde producten, kostprijs per product en de totale kostprijs.

Het eerste en laatste getal is nog wel uit te lezen met links daarna wordt het lastig om de volgende getallen uit te lezen.

Heeft er iemand een idee hoe dit gedaan zou kunnen worden, het liefst met VBA en anders met gewone formules.

Steven

Bekijk bijlage test.xlsx

 

[oeldere]

Excel 2007:

Gegevens => tekst naar kolommen kom ik tot deze oplossing (zie bijlage).

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[steven1981]

Oeldere,

bedankt voor je reactie. Zag dat ik gisteren een te kleine lijst bij de bijlage heb gedaan.

Als het aantal woorden gelijk kan je inderdaad met cel naar kolom werken. Helaas wisselt bij mij het aantal woorden, zie de geupdate versie van het bestand.

Bekijk bijlage test.xlsx

 

[oeldere]

Waar komen deze gegevens vandaan.

Probeer het probleem bij de bron op te lossen.

Om hoeveel data gaat het?

Hoe vaak dien je deze handelingen te doen?

Blijven alle gegevens van belang?

Plaats anders eens in je voorbeeld, welke gegevens je wilt gebruiken.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[steven1981]

De gegevens komen van een bestelbon die in een PDF staan.

Van de PDF wordt een tekstbestand gemaakt en die wordt via een macro ingelezen in excel. Dat lukt allemaal wel. Alleen het splitsen van de info is wat lastig.

Ik gebruik het eerste getal, artikelnummer, en minimaal heb ik het tweede getal nodig met het aantal geleverde producten.

Het invoeren zal minimaal 1x per week gebeuren, het lijkt me wel handig om iets met een macro te doen.

 

[oeldere]

En het is een bestelbon die je van iemand anders krijgt?

Zo ja, kun je deze persoon dan niet vragen (verzoeken) deze bescheiden in Excel aan te reiken.

Is het een bestelbon die je zelf maakt?

Indien ja, kun je de data beter uit de oorspronkelijke data halen.

 

[Cobbe]

Met het programma : Able2ExtractPro.exe kan je je PDF-file omzetten naar Excel.
Daarna is het uitsplitsen een makkie.

 

[oeldere]

Op basis van je gegevens toch nog een poging gewaagd.

Laat je even weten of dit is wat je bedoelt.

Het gaat om de oranje cellen.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[Niels28]

Sub splitsen()
sq = Range("A1:A6")
For sn = 1 To UBound(sq)
c02 = ""
c01 = Split(sq(sn, 1), " ")
For i = 0 To UBound(c01)
If IsNumeric(c01(i)) Then c02 = c02 & c01(i) & "|"
Next
waarde = Split(c02, "|")
Cells(sn, 5).Resize(, UBound(waarde)).Value = waarde
For Each cl In Cells(sn, 5).Resize(, UBound(waarde))
cl.Value = cl.Value * 1
Next
Next
End Sub

Niels

 

[steven1981]

Niels,

Bedankt, deze zocht ik.

Oeldere jij ook bedankt...

Steven