VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Telefonnummern den Telefonierern zuordnen

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Bereich