Variable Functionen und codeverbesserung

Hallo zusammen,
Ich experimentiere mom programierung von Funktionen herrum.
mich würde interessieren, wie das funktioniert, das ich es hin bekomme die funktion über mehrere bereiche zu erstelen.
nehmen wir als beispiel die min Funktion.
die von Excel erlaub es mehrere Zellen/Zellbereiche anzugeben (=MIN(A1:A8;B4;C5:C7))
wie müsste ich eine Function schreiben, damit sie dieses unterstützt?
bei der funktion min ist mir auch aufgefallen, das ich keinen Vernünftigen Ansatz hinbekomme.

Function minim(ber As Range)
Dim z As Range, kl, tmp As Double
kl = 99999999999# 'um nicht immer 0 zu erhalten muss einmalig kl einen Wert erhalten
For Each z In ber
If z  "" Then
If z

dies ist nun mein Versuch gewesen, diese Function nachzuschreiben (Für mich zur Übung und besserem Verständniss).
kann mir einer Bitte mal erkären, wie ich es hinbekomme
1. kl nicht erst einen Großen Wert mitzugeben um nicht immer 0 zu erhalten
2. es umgesetzt bekomme mehrere Zellen/zellbereiche zu prüfen.
Diesen Code hatte ich im Netz gefunden gehabt. er funktioniert aber nicht.

Public Function Mini(ByVal Elem, ParamArray Elems())
Dim i As Long
For i = 0 To UBound(Elems)
If Elems(i)

Dank im Vorraus
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Function mini(Ber As Range) As Variant Dim z As Range For Each z In Ber If IsNumeric(z.Text) Then If IsEmpty(mini) Then mini = z.Value ElseIf mini > z.Value Then mini = z.Value End If End If Next End Function

Option Explicit Function miniA(ParamArray parA()) Dim ii As Long, rngC As Range For ii = 0 To UBound(parA) For Each rngC In parA(ii) If IsNumeric(rngC.Value) Then If miniA > rngC.Value Or IsEmpty(miniA) Then _ miniA = rngC.Value End If Next rngC Next ii End Function

Grüß dich Gerd,
hier einmal meine Übungsdatei mit verschiedenen Funktionen.
Ich hatte die Min Funktion von Erich genommen. Diese umfaste ja auch die variablen Bereiche.
Function.xls
Du hast recht mit deiner Aussage.
Ich hatte wirklcih leere Zellen mit in dem Bereich.
ich dachte eigendlich die würden ebenfals mit ausgeschlossen werden durch Isnumeric.
Ich habe es zwar jetzt hinbekommen eine Min funktion zu schreiben, es würde mich dennoch interessieren, wieso die leeren Zellen und zum Teil auch größer kleiner Zahlen nicht mit IsNummeric ausgeschlossen werden.
Ich habe festgestellt, das es irgendwie abhängig davon ist, wo die größer kleiner Zahl in dem Bereich steht.
Leider konnte ich das noch nicht genau ausmachen.
Gruß
Dirk

Function miniB(ParamArray parA()) Dim ii As Long, rngC As Range For ii = 0 To UBound(parA) For Each rngC In parA(ii) If Not IsEmpty(rngC) And IsNumeric(rngC.Value) Then If miniB > CDbl(rngC.Value) Or IsEmpty(miniB) Then _ miniB = rngC.Value End If Next rngC Next ii End Function

Beliebteste Forumthreads (12 Monate)

	B	C	D	E
1		WAHR		xx
2	>0,4	3		FALSCH
3	3	5	8	2
4			<0,2	7
5		2
6
7		0	x	x

Variable Functionen und codeverbesserung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread