Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Telefonnummern den Telefonierern zuordnen

Gruppe

Bereich

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