VBA code om celinhoud op te halen

[edmoor]

Graag gedaan in ieder geval

 

[anton44]

Nagekomen bericht, ter lering en vermaak.
Bij het implementeren van de resultaten met een proefbestand in het definitieve kwam ik tot de ontdekking dat "renamen" eigen niet nodig is.
Door het ophalen van het downloadbestand wordt de bestandsnaam gedeclareerd als OldName, die ik vervolgens bij het importeren kan gebruiken :thumb:
De cel met de bestandsnaam moet aan het einde leeggemaakt worden om geen foutmelding te krijgen wanneer er geen downloadbestand aanwezig is.
Alles werkt nu geheel naar wens dank zij jouw hulp.

Sub Bank01_Benoemen()
    'Bank downloadbestand inlezen, in cel laden en declareren
Application.ScreenUpdating = False

    Dim sFil As String
    Dim sPath As String
    Dim lRij As Long
    Dim Oldname As String
    
    With Sheets("Variabelen")
        lRij = 1
        sFil = Dir(.Range("D15") & "\*" & .Range("E15"))
        Do While sFil <> ""
            .Range("A" & lRij) = sFil
            lRij = lRij + 1
            sFil = Dir
        Loop
    End With

'Benoemen
     With Sheets("Variabelen")
        [B]Oldname = .Range("H15"[/B])
        If Len(Oldname) > 0 Then
            Oldname = .Range("H15")
  
        Else
            MsgBox "Bestand is niet gevonden", vbInformation, "Onvindbaar"
            'Macro stopt bij "Bestand is niet gevonden" / Start de volgende sub niet.
        GoTo Fout1
        End If
        
     End With

'Mutatiebestand Importen
    ActiveWorkbook.Worksheets("ImportBANK").Select
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & [B]Oldname[/B], Destination:=Range("$A$8"))
        .FieldNames = True

enz.