Range in Funktion

Diver · 2005-11-04T09:30:50+00:00

Hallo zusammen, wie kann ich in einer selbstgeschriebenen Funktion einen variablen Bereich (Range) vom Anwender eingeben lassen, der danach als Zähler für einen Schleifendurchlauf dienen soll. Jemand ne Lösung auf Lager? Vielen Dank vorab. Gruss, D.

Hallo Diver,
ohne die Kriterien zu kennen ist das nicht zu machen, da der ganze Aufbau an der Art der Kriterien hängt. Mal als Beispiel folgende Funktion. Es wird das arithmetische Mittel aller Werte gebildet, die zwischen UGrenze und OGrenze liegen:


Function ArMittel(rngBereich As Range, UGrenze As Variant, OGrenze As Variant) As Variant
Dim rngZelle As Range
Dim lngWerte As Long
Dim dblSumWerte As Double
If IsNumeric(UGrenze) And IsNumeric(OGrenze) Then
If UGrenze > OGrenze Then
ArMittel = "Untergrenze größer Obergrenze!"
Exit Function
End If
For Each rngZelle In rngBereich
If rngZelle <= OGrenze And rngZelle >= UGrenze Then
dblSumWerte = dblSumWerte + rngZelle
lngWerte = lngWerte + 1
End If
Next 'rngZelle
If lngWerte > 0 Then
ArMittel = dblSumWerte / lngWerte
Else
ArMittel = "keine Werte im Bereich"
End If
Else
ArMittel = "Werte für Ober- und Untergrenze eingeben!"
End If
End Function

In der Anwendung sieht das dann z.B. so aus:

	C	D
8	4	4,28571429
9	2	Werte für Ober- und Untergrenze eingeben!
10	5	keine Werte im Bereich
11	6	Untergrenze größer Obergrenze!
12	3
13	5
14	6
15	8
16	9
17	4
18	5
19	7
20	2
21	4

Formeln der Tabelle

D8 : =armittel(C8:C21;3;5)
D9 : =armittel(C8:C21;5;a)
D10 : =armittel(C8:C21;10;15)
D11 : =armittel(C8:C21;15;10)

Gruß Ingolf

Hallo Diver,
wenn ich das richtig sehe, sind das alles Kriterien, die in deiner Quelltabelle ja irgendwo vorgegeben sein müssen. Dann braucht es keine benutzerdefinierte Funktion. Das geht mit SUMMENPRODUKT.
Kannst du das für deine Zwecke anpassen?

	A	B	C	D	E	F
1	1.	DI	Tarif 1	Direkt	5	4,33333333
2	1.	DI	Tarif 1	Indirekt	7
3	1.	DI	Tarif 2	Direkt	6
4	1.	DI	Tarif 2	Indirekt	2
5	2.	MI	Tarif 1	Direkt	4
6	2.	MI	Tarif 1	Indirekt	3
7	2.	MI	Tarif 2	Direkt	7
8	2.	MI	Tarif 2	Indirekt	8
9	3.	DO	Tarif 1	Direkt	9
10	3.	DO	Tarif 1	Indirekt	7
11	3.	DO	Tarif 2	Direkt	3
12	3.	DO	Tarif 2	Indirekt	4
13	4.	FR	Tarif 1	Direkt	5
14	4.	FR	Tarif 1	Indirekt	6
15	4.	FR	Tarif 2	Direkt	7
16	4.	FR	Tarif 2	Indirekt	2

Formeln der Tabelle

F1 : =SUMMENPRODUKT((B1:B60="DI")*(C1:C60="Tarif 1")*(D1:D60="Direkt")*(E1:E60))/SUMMENPRODUKT((B1:B60="DI")*(C1:C60="Tarif 1")*(D1:D60="Direkt"))

Mit dem ersten SUMMENPRODUKT wird die Summe der Werte, welche die Kriterien erfüllen, gebildet. Mit dem zweiten SUMMENPRODUKT wird die Anzahl dieser Werte gezählt und die Summe wird dann noch durch die Anzahl geteilt.
Gruß Ingolf

Forumthread: Range in Funktion

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Range in Funktion

Forumthread: Range in Funktion

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread