Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Wie ermittele ich den größten dieser Werte?"
Anzeigen von Werten und Formeln Mittelwert ohne Nullwerte
Zeile einfügen und Formeln und Werte übernehmen Werte eins bestimmten Monats summieren
Werte ohne Zwischenspeicher übertragen Zellindex eines gefundenen Wertes
Mehrmals vorkommende Werte in neues Tabellenblatt Werte in eine ComboBox einer UserForm übernehmen
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen Werte um einen vorgegebenen Faktor erhöhen und verschieden runden