Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Finden einer Spalte mit MAX-Wert

Finden einer Spalte mit MAX-Wert
24.10.2003 10:43:52
christian
Hallo,
ich suche gaaanz dringend eine Möglichkeit, in einer Tabelle in jeder Zeile diejenige Spalte zu finden, in der sich der Maximalwert aus dieser Zeile befindet. Eine Angabe der Spaltenüberschrift würde reichen. Z.B. Tabelle mit 3 Spalten, A,B,C und irgendwelchen Werten. Als Ergebnis sollte erscheinen, in Zeile 1 steht der Maximalwert in Spalte B usw.

Uber schnelle Hilfe würde ich mich sehr freuen.
Gruß
Christian

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Finden einer Spalte mit MAX-Wert
24.10.2003 10:51:27
FP
Hallo Christina,

wenn's denn unbedingt die Spaltenbezeichnung sein muss:

Excel Jeanie HTML
Anzeige
AW: Finden einer Spalte mit MAX-Wert
24.10.2003 10:52:22
Mac4
Hallo Christian,

ein Beispiel für Zeile 1:

=ADRESSE(1;VERGLEICH(MAX(A1:C1);A1:C1;0);4)

Marc
AW: Finden einer Spalte mit MAX-Wert
24.10.2003 10:53:15
Mac4
Falsch angehängt!

Hallo Christian,

ein Beispiel für Zeile 1:

=ADRESSE(1;VERGLEICH(MAX(A1:C1);A1:C1;0);4)

Marc
AW: Finden einer Spalte mit MAX-Wert
24.10.2003 12:32:53
christian
klappt!!!
Prima!
Danke!!!!!!!!!
AW: Finden einer Spalte mit MAX-Wert
24.10.2003 11:09:49
Nayus
Hallo,
mit 'ner UDF geht's:


Function GetMaxCol(pRange As Range) As String
Dim l_ret As String
Dim l_iBuff, l_cnt As Integer
Dim c As Range
Dim l_LastValue As Double
l_cnt = 0
For Each c In pRange
l_cnt = l_cnt + 1
If IsNull(CVar(l_LastValue)) Or _
c.Value > l_LastValue Then
l_LastValue = c.Value
l_iBuff = l_cnt
End If
Next c
If Not IsNull(CVar(l_iBuff)) Then
' Achtung: funktioniert so nur bis Spalte "Z"!
l_ret = Chr(l_iBuff + 64)
Else
l_ret = ""
End If
GetMaxCol = l_ret
End Function


Gruß,
Nayus
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige