Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorksheetFunction.Min

WorksheetFunction.Min
15.05.2022 11:57:15
Michael
Hallo zusammen,
ich möchte aus 5 Comboxen den kleinsten Wert ermitteln.
Mit folgendem Code funktioniert das
a = Me.cmb_BStatus1.Value
b = Me.cmb_BStatus2.Value
c = Me.cmb_BStatus3.Value
d = Me.cmb_BStatus4.Value
e = Me.cmb_BStatus5.Value
kleinste = WorksheetFunction.Min(a, b, c, d, e)
Me.txt_Status.Value = kleinste
gefüllt werden die Cmb mit
.AddItem ""
.AddItem "25"
.AddItem "50"
.AddItem "75"
.AddItem "100"
wenn aber eine der Boxen mit keiner Zahl belegt ist, schlägt die WorksheetFunction fehl.
Wenn anstatt "" eine Null eintrage zeigt die Null an als kleinste.
Oder gibt es ein anderen Vorschlag wie ich den kleinsten Wert außer Null und "" in Textfeld reinschreiben kann.
Besten Dank für Eure Unterstützung

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorksheetFunction.Min
15.05.2022 13:08:13
onur 

a = Val(Me.cmb_BStatus1) + 10 ^ 9 * -(Me.cmb_BStatus1 = "")
b = Val(Me.cmb_BStatus2) + 10 ^ 9 * -(Me.cmb_BStatus2 = "")
c = Val(Me.cmb_BStatus3) + 10 ^ 9 * -(Me.cmb_BStatus3 = "")
d = Val(Me.cmb_BStatus4) + 10 ^ 9 * -(Me.cmb_BStatus4 = "")
e = Val(Me.cmb_BStatus5) + 10 ^ 9 * -(Me.cmb_BStatus5 = "")

AW: WorksheetFunction.Min
15.05.2022 13:29:19
Michael
Hallo Onur,
perfekt
besten Dank
Gerne !
15.05.2022 13:30:56
onur
AW: WorksheetFunction.Min
15.05.2022 13:33:13
Michael
könntest du kurz erklären was die Funktion Val +10^9*- macht ?
würde ich gerne verstehen
AW: WorksheetFunction.Min
15.05.2022 13:40:43
onur
Du meinst:

+ 10 ^ 9 * -(Me.cmb_BStatus1 = "")
damit wird, wenn die Combobox leer ist, 

Me.cmb_BStatus1 = ""
ein -1 ergeben und durch das Minuszeichen zu +1.
Wenn NICHT leer, ergibt das eine 0.
Das wir mit 1 Milliarde multipliziert und zum Wert dazuaddiert.
Dadurch ist der Wert (hoffentlich) grösser als alle anderen, sonst musst du statt 10^9 eine noch grössere Zahl nehmen.
Anzeige
AW: WorksheetFunction.Min
15.05.2022 13:48:11
onur
In "Excel-Sprache" wäre das:
a = Wenn(a = "" ; 10^9 ; a)
AW: WorksheetFunction.Min
15.05.2022 14:07:30
Michael
Danke

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige