Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

welche Zeile hat den Maxwert ? | Herbers Excel-Forum


Betrifft: welche Zeile hat den Maxwert ? von: Jürgen
Geschrieben am: 31.12.2009 13:00:58

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

  

Betrifft: AW: welche Zeile hat den Maxwert ? von: Hajo_Zi
Geschrieben am: 31.12.2009 13:07:12

Hallo jürgen,

ich vermute nur mit Find()

GrußformelHomepage


  

Betrifft: mit Vergleich von: Matthias L
Geschrieben am: 31.12.2009 13:07:24

Hallo



Das könntest Du natürl. auch in einer Formel zusammenfassen.

Gruß Matthias


  

Betrifft: AW: welche Zeile hat den Maxwert ? von: Jürgen
Geschrieben am: 31.12.2009 13:24:53

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


  

Betrifft: hatte vba überlesen, hier eine weiter Variante von: Matthias L
Geschrieben am: 31.12.2009 13:31:34

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


  

Betrifft: AW: hatte vba überlesen, hier eine weiter Variante von: Jürgen
Geschrieben am: 31.12.2009 14:05:03

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


Beiträge aus den Excel-Beispielen zum Thema "welche Zeile hat den Maxwert ?"