VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ermittlung der Kopfzeile nach der Funkion KGRÖSSTE()

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Kgrösste