Range in Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub RangeEingeben() Dim rngBereich As Range Dim lngHilf As Long On Error Resume Next Set rngBereich = Application.InputBox(" Bitte geben Sie einen Bereich ein !", " Bereich", Type:=8) If Err.Number <> 0 Then MsgBox " Sie haben Abbrechen gedrückt !", vbInformation Else MsgBox "Anzahl Reihen = " & rngBereich.Rows.Count & vbCr & _ "Anzahl Spalten = " & rngBereich.Columns.Count & vbCr & _ "Anzahl Zellen = " & rngBereich.Count, vbInformation End If On Error GoTo 0 End Sub

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

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range in Funktion

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread