Gruppe
UDF
Problem
Die benutzerdefinierte Funktion sucht je nach Parameter den ersten oder den letzten gesuchten Wert, die Fundadresse, Fundzeile oder Fundspalte.
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