PDF geopend in Firefox.
De tekst in Firefox gekopieerd en geplakt in Notepad ++
De Notepad file opgeslagen als tekstbestand.
Dit tekstbestand geïmporteerd in Excel.
Daarna de cijfers en tekst gesplitst in 2 nieuwe kolommen.
Met volgende 2 functies.
Function GetNumber(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumber = Result
End Function
en
Function GetText(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If Not (IsNumeric(Mid(CellRef, i, 1))) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetText = Result
End Function
Dan de layout aangepast volgens het PDF bestand en wat schoonheidsfoutjes eruit gehaald.