Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Function GetValue(rng As Range, vValue As Variant, bln As Boolean, iArt As Integer) As Variant
   Dim vFound As Variant
   Dim iCounter As Integer
   For iCounter = 1 To rng.Cells.Count
      If rng(iCounter).Value = vValue Then
         If iArt = 0 Then
            vFound = rng(iCounter).Address(False, False)
         ElseIf iArt = 1 Then
            vFound = rng(iCounter).Row
         Else
            vFound = rng(iCounter).Column
         End If
         If Not IsEmpty(vFound) And bln = False Then
            GetValue = vFound
            Exit Function
         End If
      End If
   Next iCounter
   If Not IsEmpty(vFound) Then GetValue = vFound
End Function

    

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