Sub TestIt()
Dim ZielZeile As Long, QuellZeile As Long
Dim ZielSpalte As Long, Quellspalte As Long
Dim Pfad As String, Quelle As String, Tabelle As String, Bezug As String
Dim varElm As Variant
ZielZeile = 20: QuellZeile = 20
ZielSpalte = 1: Quellspalte = 1
Pfad = "E:\Temp\": Quelle = "Flexible_Budget_2016 (4).xlsx": Tabelle = "900101"
With ThisWorkbook.ActiveSheet
Do
varElm = _
GetValue(Pfad, Quelle, Tabelle, .Cells(QuellZeile, Quellspalte).Address(0, 0))
If varElm <> 0 Then
.Cells(ZielZeile, ZielSpalte).Value = varElm
Quellspalte = Quellspalte + 1
ZielSpalte = ZielSpalte + 1
Else
Exit Do
End If
Loop
End With
End Sub