Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung der Kopfzeile nach der Funkion KGRÖSSTE()

Gruppe

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