Gruppe
UDF
Bereich
Bereich
Thema
Telefonnummern den Telefonierern zuordnen
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.
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
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