Gruppe
UDF
Bereich
Bereich
Thema
Fundwerte ermitteln
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