Gruppe
UDF
Bereich
Kgrösste
Thema
Ermittlung der Kopfzeile nach der Funkion KGRÖSSTE()
Problem
Wie kann ich die Kopfzeile der mit der Funktion KGRÖSSTE() ermittelten Rangfolge abrufen? Mehrfachtreffer müssen berücksichtigt werden
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function sRang(rngAll As Range, iPos As Integer)
Dim wks As Worksheet
Dim rng As Range
Dim sTxt As String
Set wks = Application.Caller.Parent
For Each rng In rngAll.Cells
If rng.Value = iPos Then
sTxt = sTxt & Cells(1, rng.Column) & ", "
End If
Next rng
sRang = Left(sTxt, Len(sTxt) - 2)
End Function