Recalculating Figures with Currencies

Sub SortSalesfigures()

Dim Salesfigures As Object
Dim Exchangerates As Object
Dim GBP As String, NZD As String, SEK As String, NOK As String
Dim EUR As String, RUB As String, USD As String, JPY As String, ISK As String
Dim DKK As String

Dim i As Integer
Dim j As Integer

i = 1
j = 1

With Workbooks("SalesFigures").Sheets("Salgsbeløb").Range("A2:B328")

'(need sth to combined numbers with Workbook("Exchange Rates") and Sheets("kurser")
'This i need to calculate the total sales.

'I was thinking to Multiply the Sales figure in each cell with Rate and Then Dividing the number
'100 to get the correct number.

'When the figures have been calculated with the currency which corresponds the figures will now
' all be in DKK. Therefore they have to be moved to a new Workbook ("Results")

'The manager will then be able to view the figures

'When the figures are all available there has to be made a top 10 list to show the 10 highest numbers
'in DKK of the 10 Currencies. (GBP, NZD, SEK, NOK, EUR, RUB, USD, JPY, ISK and DKK)



End Sub