Function create_x(zahl) As String
Dim a As Long
Dim x As String
a = Worksheets(1).VLookup(zahl, Worksheets(1).Range("A:H"), 8, False)
x = CStr(a)
create_x = x
End Function
Function create_x(zahl As Integer) As String
Dim a As Variant
Dim x As String
a = Application.WorksheetFunction.VLookup(zahl, Worksheets(1). _
Range("A:H"), 8, False)
x = CStr(a)
create_x = x
End Function
Function create_x (file As Object, zeile As Integer) As String
Dim b As Variant
b = file.Worksheets(1).Cells(zeile, 1).Value
create_x = Application.WorksheetFunction.VLookup(Val(b), ActiveWorkbook.Worksheets(2). _
Range("A:B"), 2, False)
End Function
Function create_x(wb As Workbook, iZeile As Integer) As String
Dim b As Variant
b = wb.Worksheets(1).Cells(iZeile, 1).Value
create_x = WorksheetFunction.VLookup(b, Worksheets(2).Range("A:B"), 2, False)
End Function
Sub aaa()
MsgBox create_x(Workbooks("Mappe6"), 6)
End Sub