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?"