Wert in Zeile X aus der Spalte ermitteln, in der in anderer Zeile der höchste Wert steht

Question

Hallo,

ich habe eine Spalte 1, in der ich mit MAX(1:1) den höchsten Wert ermittle.

Nun möchte ich in einer Zelle den Wert anzeigen, der in der Zeile 2 und derjenigen Spalte steht, in der in Zeile 1 der höchste Wert ermittelt wurde.

Lässt sich das mit einer Formel, also ohne VBA lösen, ggf. wie?

Besten Dank im Voraus!

Stefan

Answer 1

Hallo Stefan, siehe MATCH

Sub xxx()
Dim spaltenindex As Long
Dim a As Range

Set a = Range("a2:z2")
spaltenindex = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(a), a, 0)
End Sub

Answer 2

Hallo Stefan,

das geht mit dieser Formel

=INDEX(A2:Z2;VERGLEICH(MAX(A1:Z1);A1:Z1;0))

(Spaltenbuchstaben sind anzupassen)

Beachte:
Bei mehrfach vorkommenden Max-Werten in Zeile 1, wird immer der am weitesten links stehende
Wert verglichen.



Gruß
Rainer

Answer 3

Ergänzung:

...wenn die Max-Werte in Zeile 1 mehrfach vorkommen und die entsprechenden Werte aus Zeile
2 ausgelesen werden sollen, geht das mit folgenden Matrixformeln.

bis Excel 2003

=WENN(ZEILE(A1)
<=ZÄHLENWENN(A$1:A$26;"="&MAX(A$1:A$26));INDEX($A$2:$Z$2;KKLEINSTE(WENN(A$1:Z$1
=MAX(A$1:Z$1);SPALTE($A:$Z));ZEILE(A1)));"")

ab Excel 2007

=WENNFEHLER(INDEX($A$2:$Z$2;KKLEINSTE(WENN(A$1:Z$1=MAX(A$1:Z$1);SPALTE(
$A:$Z));ZEILE(A1)));"")

Spaltenbuchstaben sind anzupassen und die Formeleingaben mit Strg+Shift+Enter zu
bestätigen.

Gruß
Rainer

Answer 4

Korrektur:

die erste Formel ist falsch, richtig ist:

bis Excel 2003

=WENN(ZEILE(A1)<=ZÄHLENWENN(A$1:Z$1;"="&MAX(A$1:Z$1));INDEX($A$2:$Z$2;KKLEINSTE(WENN(A$1:Z$1=MAX(A$1:Z$1);SPALTE($A:$Z));ZEILE(A1)));"")

Gruß
Rainer

Answer 5

Etwas verspätet aber um so herzlicheren Dank an alle Supporter!

Die erste Antwort von Rainer war für meine Zwecke ideal und völlig ausreichend, weil ich das Problem per Formel lösen wollte, damit Änderungen in der Tabelle immer direkt umgesetzt werden.

Damit hat es auf Anhieb und exakt nach meinen Vorstellungen funktioniert, super!

Nochmals herzlichen Dank!

Stefan