gegevens uit vorige versies ophalen ???

[NuMan]

Hallo allemaal,
Ik heb een excel bastand gemaakt om onregelmatigheidstoeslagen en uren te bijhouden. Laatste versie zet ik op het internet voor mijn collega’s. Bij laatste versie wil ik een macro bijplaatsen om ingevulde gegevens van vorige versies op te halen. De bestand naam van vorige versie is ook niet altijd de zelfde. Heeft iemand hiervoor een oplossing of ervaring of een idee???
Alvast bedankt voor meedenken.

 

[NuMan]

Voorbeeld bijlage voor gegevens

 

[NuMan]

op het Internet govonden:
alleen nog aanpassen op eigen wensen

==================
Sub TestHaalWaarde()
Dim pad As String, bestand As String, blad As String, cel As String

pad = "C:\Mijn Documenten\Excel"
bestand = "Excel_data.xls"
blad = "Blad1"

Application.ScreenUpdating = False
For regel = 1 To 11
For kolom = 1 To 4
cel = Cells(regel, kolom).Address
Cells(regel, kolom) = GetValue(pad, bestand, blad, cel)
Next kolom
Next regel
Application.ScreenUpdating = True
End Sub

Private Function GetValue(path, file, sheet, ref)
' Haal een waarde uit een gesloten werkboek
Dim arg As String

' Kontroleer of de file bestaat
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Niet Gevonden!"
Exit Function
End If

' Creeer het argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)

' Voer de eigenlijke XLM macro uit
GetValue = ExecuteExcel4Macro(arg)
End Function
===================

 

[NuMan]

Enkele Excel-tips en voorbeelden:
http://home.planet.nl/~schni000/Excel/truukjes_in_excel.htm#Ontdubbel