Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Fundwerte ermitteln

Gruppe

Bereich

Problem

Die benutzerdefinierte Funktion sucht je nach Parameter den ersten oder den letzten gesuchten Wert, die Fundadresse, Fundzeile oder Fundspalte.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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