Gruppe
UDF
Problem
Über eine benutzerdefinierte Funktion sollen zu jeder Telefonnummer die im Blatt Data hinterlegten Telefonierer ermittelt werden. Jedem Telefonierer ist ein fester Kreis von Telefonnummern zugeordnet.
StandardModule: Modul1
Function Telefon(sNo As String) As String
Dim wks As Worksheet
Dim vRow As Variant
Dim iCol As Integer
Set wks = Worksheets("Data")
iCol = 1
Do Until IsEmpty(wks.Cells(1, iCol))
vRow = Application.Match(sNo, wks.Columns(iCol), 0)
If Not IsError(vRow) Then
Telefon = wks.Cells(1, iCol).Value
Exit Function
End If
iCol = iCol + 1
Loop
Telefon = "Unbekannt"
End Function