Excel und VBA: Formeln, Programmierung, Lösungen

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