HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
welche Zeile hat den Maxwert ?
Jürgen

Hallo,
ich ermittle mit:
maxw = Worksheets.Application.Max(Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0)))
in einer Spalte aus 3 Werten den Maxwert. Wie finde ich die Zeile heraus in der der Maximalwert steht heraus.
also zeilemax= (Zeilenzahl der Zeile mit dem Maxwert)
Gruß Jürgen

AW: welche Zeile hat den Maxwert ?
Hajo_Zi

Hallo jürgen,
ich vermute nur mit Find()

mit Vergleich
Matthias

Hallo
Userbild
Das könntest Du natürl. auch in einer Formel zusammenfassen.
Gruß Matthias
AW: welche Zeile hat den Maxwert ?
Jürgen

Hallo,
danke für Eure Hilfe.
Ich habe es jetzt mit Vergleich gemacht.
maxw = Worksheets.Application.Max(Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0)))
If aktivecell = maxw Then maxzeile = ActiveCell.Row
If ActiveCell.Offset(0, 1) = maxw Then maxzeile = ActiveCell.Row + 1
If ActiveCell.Offset(0, 2) = maxw Then maxzeile = ActiveCell.Row + 2
Gruß Jürgen
hatte vba überlesen, hier eine weiter Variante
Matthias

Hallo
Sub welcheZeile()
Dim maxW
Dim rng As Range
maxW = Worksheets.Application.Max(Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0)))
For Each rng In Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0))
If rng.Value = maxW Then MsgBox "Zeile "& rng.Row: Exit Sub
Next
End Sub
Gruß Matthias
AW: hatte vba überlesen, hier eine weiter Variante
Jürgen

Hallo ,
dank Eurer Hilfe konnte ich das Problem von:
Chris vom 29.12.2009 15:23:21 lösen. Berechnen,einfügen (Hoffe ich)
Danke
Gruß Jürgen