This works for me
[VBA]
Option Explicit

Sub Test()
Dim k
k = 5
MsgBox KontoCol(k)
End Sub

Function KontoCol(Kontonr)
Dim Konti As Range
Set Konti = Range("Konto_Col")
KontoCol = Application.WorksheetFunction.VLookup(Kontonr, Konti, 2, False)
End Function

[/VBA]