Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Anzahl unterschiedliche Einträge plus Kriterium
Benutzerdefinierte Funktion
 
Diese Funktion eignet sich aufgrund der Performance nur für kleinere Datenbestände!
 
Es soll in einer Spalte die Anzahl unterschiedlicher Einträge in Abhängigkeit eines anderen Spaltenwertes gezählt werden.
Die Kriterienspalte kann unsortiert sein. Die Spalte mit den Einträgen kann rechs oder links der Kriterienspalte stehen.
 
Syntax: =verschiedene(Bereich mit den Kriterien, Kriterium, Anzahl Spalten, Rechts oder Links)
 
Es soll in Abhängigkeit des Datums in Spalte A die Anzahl der Mitarbeiter in Spalte B ermittelt werden.
 
 
 
Unterschiedliche Einträge
 ABCDEF
1DatumMitarbeiterBereich DatumAnzahl Mitarbeiter
201.01.2011PaulWareneingang 01.01.20113
301.01.2011TheoWareneingang 02.01.20112
402.01.2011HugoWareneingang   
502.01.2011RegineWareneingang   
601.01.2011PeterWareneingang   
701.01.2011PaulZoll   
8      
Formeln der Tabelle
F2 : =verschiedene(A2:A7;E2;1;1)
F3 : =verschiedene(A2:A7;E3;1;1)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
Kriteriumspalte ist hier Datumspalte A. Kriterium ein Datum, der Spaltenversatz beträgt 1, da hier die Anzahl der verschiedenen Werte aus einer angrenzenden Spalte ermittelt werden sollen. Diese Spalte befindet sich rechts der Kriteriumspalte, daher die 1 als letztes Argument.
 
Das Ergebnis für den 01.01.2011 beträgt 3 Mitarbeiter. Paul wird nur einmal gezählt.
 
 
Es soll die Anzahl der unterschiedlichen Einträge in Spalte H in Abhängigkeit des Kriteriums in Spalte K ermittelt werden.
 
 
Unterschiedliche Einträge
 HIJKLMN
1Eintrag  Kriterium KriteriumAnzahl verschiedene Einträge
2Z100  A A1
3Z100  A B2
4Z101  B   
5Z101  B   
6Z102  B   
7       
Formeln der Tabelle
N2 : =verschiedene(K2:K100;"A";3;0)
N3 : =verschiedene(K2:K100;"B";3;0)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
Kriteriumspalte ist hier K, das Kriterium z.B. A ist fest in die Formel eingegeben. Der Spaltenversatz bis Spalte H beträgt 3, und da diese Spalte links von Spalte K liegt, wurde die Null als letztes Argument gewählt.
 
 
Damit die Formel genutzt werden kann, muss der unten genannte Code in ein "Allgemeines Modul". ( Siehe auch UDF - Funktionen
-> * Allgemeines Modul - Kurzanleitung *   )
 
 
Public Function Verschiedene(Kriterium_Spalte As Range, _
Kriterium As Variant, _
Anzahl_Spalten As Integer, _
RechtsLinks As Boolean) As Long
'############################################################
'Funktion zählt die unterschiedlichen Einträge einer Spalte
'in Abhängigkeit eines Kriteriums einer Nebenspalte
'Autor: Jürgen Hennekes
'############################################################
Application.Volatile
Dim objDic As Object
Dim Zelle As Range
 
Set objDic = CreateObject("Scripting.Dictionary")
 
If RechtsLinks = True Then
  For Each Zelle In Kriterium_Spalte
    If Zelle.Value = Kriterium Then
      objDic(Zelle.Offset(0, Anzahl_Spalten).Value) = 1
    End If
  Next
    Else
  For Each Zelle In Kriterium_Spalte
    If Zelle.Value = Kriterium Then
      objDic(Zelle.Offset(0, Anzahl_Spalten * -1).Value) = 1
    End If
  Next
End If
 
Verschiedene = objDic.Count
 
End Function