Hente data fra extern fil

Rem Version 4
Rem =========
Public Sub intervalDatoPriser()
Dim aktuelleSti

Const prisFilNavn = "PrisFil.xlsx"          '<---------- Justeres

Dim prisXls As Object
Dim a1 As Worksheet, antalRæk As Long, antalKol, ræk As Long, kol As Long

Dim a2 As Worksheet
Dim fraDato As Date, tilDato As Date, fraRæk As Long, tilRæk As Long
Dim r1 As Range, r2 As Range, r12 As Range
    On Error GoTo lukPrisfil

Rem sæt aktuelle sti
    aktuelleSti = ThisWorkbook.Path
    If Right(aktuelleSti, 1) <> "\" Then
        aktuelleSti = aktuelleSti + "\"
    End If
   
Rem Åbn prisfil-objektet
    Set prisXls = CreateObject("Excel.Application")
    prisXls.Workbooks.Open aktuelleSti + prisFilNavn
   
    Set a1 = prisXls.ActiveWorkbook.Sheets("Ark1")
    Set a2 = ActiveWorkbook.Sheets("Ark2")
   
    antalRæk = prisXls.ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = prisXls.ActiveCell.SpecialCells(xlLastCell).Column
     
    fraDato = a2.Range("C2")
    tilDato = a2.Range("E2")
   
    For ræk = 2 To antalRæk
        If a1.Range("A" & ræk) = fraDato Then
            fraRæk = ræk
        Else
            If a1.Range("A" & ræk) = tilDato Then
                tilRæk = ræk
Rem Overskrift
                Set r1 = a1.Range(a1.Cells(1, 1), a1.Cells(1, antalKol))
                Set r2 = a1.Range(a1.Cells(fraRæk, 1), a1.Cells(tilRæk, antalKol))
Rem Data
                indsætData r1, "C3"
                indsætData r2, "C4"
                Exit For
            End If
        End If
    Next ræk
     
    a1.Application.CutCopyMode = False
    Range("C4").Select
   
Rem luk prisfil-objektet
lukPrisfil:
    prisXls.Application.Quit
    Set prisXls = Nothing
End Sub
Private Sub indsætData(rr As Range, cc As String)
    rr.Select
    rr.Copy
    Range(cc).Select
    ActiveSheet.Paste
End Sub

igen, perfekt udført. TAKKER

Selv tak - nu mangler der måske kun en Userform til valg af datoer?

tja, jeg har lavet 2 rullelister, men hvis du har en bedre måde er jeg helt klart med på en lytter :-)

Det skulle kun være for at "afstemme" til-dato - når fra-dato er valgt.

jeg må indrømme jeg kan ikke "se" det for mig ??

ok - så må du heller se det - vender tilbage..

Hvis du sender en mail - så returnere jeg min model. @-adresse under min profil.

virker perfekt, jeg har lagt en commandbutton ind, som åbner Userform1.

Takker.

Godt nok - selv tak