AW: Referenz
03.03.2005 16:33:28
Andi
Hi Mandy (dies ist übrigens eine Anrede...),
da ich von Formeln wie SVERWEIS etc keine Ahnung habe, hab ich mal eine Funktion geschrieben, die eigentlich das gewünschte Ergebnis liefern sollte (gehört in ein Modul in Deiner Arbeitsmappe):
Function mandys_funktion(bereich1 As Range, bereich2 As Range) As Variant
Dim zelle As Range
Dim zeile As Integer
For Each zelle In bereich2
If zelle.Value = WorksheetFunction.Max(bereich2) Then zeile = zelle.Row
Next
For Each zelle In bereich1
If zelle.Row = zeile Then mandys_funktion = zelle.Value
Next
End Function
Die Funktion kann wie eine ganz normale Formel verwendet werden und braucht als Parameter zwei Bereiche, nämlich die Spalte mit den Bezeichnern und die Spalte mit den Werten (die Spalten müssen auch nicht notwendigerweise nebeneinander liegen, nur Bezeichner und Wert müssen in der gleichen Zeie stehen.)
Wenn Du Deine Werte und Bezeichner also sagen wir mal bis Zeile 100 stehen hast, dann bekommst Du mit:
=mandys_funktion(A1:A100;B1:B100)
hoffentlich das gewünschte Ergebnis.
Schönen Gruß (auch eine Frage der Höflichkeit :-)),
Andi
P.S.: Alle Excel-Profis hier mögen mir die umständliche Lösung verzeihen; ich suche ständig nach Möglichkeiten, meine VBA-Fähigkeiten zu trainieren, und dies schien mir dafür sehr geeignet. Und weil's auch noch funkioniert, wollte ich es Mandy nicht vorenthalten...