kopiere celleværdi fra lukket regneark til userform textbox

Prøv at se om du ikke kan bruge nedenstående.

Sub GetDataDemo()
   
    Dim FilePath$, Row&, Column&, Address$
    Dim Pnr As Long
   
    'change constants & FilePath below to suit
    '***************************************
    Const FileName$ = "Pnumre.xlsx"
    Const SheetName$ = "Data"
    Const NumRows& = 7
    Const NumColumns& = 1
    FilePath = "P:\EXCEL programmer\YDS\Igang\"
    Pnr = Sheets("Anmodning").Range("Pnr")
    '***************************************
   
    DoEvents
    Application.ScreenUpdating = False
    If Dir(FilePath & FileName) = Empty Then
        MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist"
        Exit Sub
    End If
   
    For Row = 4 To NumRows
            For Column = 1 To NumColumns
                Address = Cells(Row, Column).Address
                Cells(Row, Column) = GetData(FilePath, FileName, SheetName, Address)
                Columns.AutoFit
            Next Column
    Next Row
    ActiveWindow.DisplayZeros = False
End Sub


Private Function GetData(Path, File, Sheet, Address)
    Dim Data$
    Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & _
    Range(Address).Range("A1").Address(, , xlR1C1)
    GetData = ExecuteExcel4Macro(Data)
End Function

Hej vv25
Jeg har prøvet din kode i et hav af varianter, men kan ikke finde ud af at få den til at lykkes.
Da jeg ikke er super vba programmør, har du et andet, mere simpelt forslag til en kode, jeg er i stand til at forstå.

Hvis ikke er der måske en anden, der kan hjælpe mig.

Undskyld det sene svar, jeg har brugt en del tid på at finde ud af at omskrive din kode, den ser ellers rimelig god ud jeg kan bare ikke knække den.

Med venlig hilsen
Mimet