Wie ermittele ich den größten dieser Werte?

Bild

Betrifft: Wie ermittele ich den größten dieser Werte?
von: miers
Geschrieben am: 07.03.2005 16:52:39
Hallo Leute
ich habe, so glaube ich ein sehr ausgefallenes Problem.
ich lese folgende Werte aus einem Formular ein ...
obenlinks = Me.oben_links
obenrechts = Me.oben_rechts
mittelinks = Me.mitte_links
mitterechts = Me.mitte_rechts
untenlinks = Me.unten_links
untenrechts = Me.unten_rechts
wie gehe ich jetzt vor um den größte wert von Ihnen zu ermittlen?

Bild

Betrifft: =KGRÖSSTE(A1:B3;1) o.T.
von: DieterB
Geschrieben am: 07.03.2005 16:55:52
Gruß DieterB
Bild

Betrifft: AW: Wie ermittele ich den größten dieser Werte?
von: Smilas
Geschrieben am: 07.03.2005 16:56:09
Probier es mal damit:
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Bild

Betrifft: AW: Nachfrage
von: Martin Beck
Geschrieben am: 07.03.2005 16:58:31
Hallo ???,
es gibt verschiedene Möglichkeiten. Brauchst Du die einzelnen Variableninhalte noch oder dienen die nur zur Berechnung des Maximums?
Gruß
Martin Beck
Bild

Betrifft: AW: Nachfrage
von: miers
Geschrieben am: 07.03.2005 17:49:31
Mein ziel ist es den Unterschied zwischen dem Max-Wert und dem Min-Wert zu ermitteln.
Mit diesem arbeite ich dann weiter
Bild

Betrifft: AW: Wie ermittele ich den größten dieser Werte?
von: Martin Beck
Geschrieben am: 07.03.2005 18:12:30
Hallo ???,
ungetestet:

mx=0
mn=10000000'oder irgendeine genügend große Zahl
obenlinks = Me.oben_links
mx=Application.WorksheetFunction.Max(mx, obenlinks )
mn=Application.WorksheetFunction.Min(mn, obenlinks )
obenrechts = Me.oben_rechts
mx=Application.WorksheetFunction.Max(mx, obenrechts )
mn=Application.WorksheetFunction.Min(mn, obenrechts )
mittelinks = Me.mitte_links
mx=Application.WorksheetFunction.Max(mx, mittelinks )
mn=Application.WorksheetFunction.Min(mn, mittelinks )
mitterechts = Me.mitte_rechts
mx=Application.WorksheetFunction.Max(mx, mitterechts )
mn=Application.WorksheetFunction.Min(mn, mitterechts )
untenlinks = Me.unten_links
mx=Application.WorksheetFunction.Max(mx, untenlinks )
mn=Application.WorksheetFunction.Min(mn, untenlinks )
untenrechts = Me.unten_rechts
mx=Application.WorksheetFunction.Max(mx, untenrechts )
mn=Application.WorksheetFunction.Min(mn, untenrechts )

Gruß, Anrede und Realvornamen schaden in diesem Forum nichts.
Gruß
Martin Beck
Bild

Betrifft: AW: Wie ermittele ich den größten dieser Werte?
von: ingoG
Geschrieben am: 07.03.2005 22:37:30
Hallo ,
oder
maxi=Application.WorksheetFunction.Max _(me.unten_links,me.unten_rechts,me.mitte_links,me.mitte_rechts,me.oben_links,me.oben_rechts )
und
mini=Application.WorksheetFunction.Min _(me.unten_links,me.unten_rechts,me.mitte_links,me.mitte_rechts,me.oben_links,me.oben_rechts )
Gruß Ingo
Bild

Betrifft: AW: Besser!
von: Martin Beck
Geschrieben am: 08.03.2005 09:24:18
Hallo Ingo,
ich hatte ja schon geschrieben, daß es verschiedene Lösungen gibt ;-), aber Deine ist eleganter und besser. Wieder was gelernt.
Gruß
Martin Beck
Bild

Betrifft: AW: Besser!
von: miers
Geschrieben am: 08.03.2005 13:50:12
Puh,danke danke Jungs
So viel hilfe... ich bin wirklich beeindruckt.
Ganz großes Dankeschön an alle.
Gruß Gunar
Bild

Betrifft: Danke für die Rückmeldung oT
von: ingoG
Geschrieben am: 08.03.2005 14:11:49
.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wie ermittele ich den größten dieser Werte?"