Unterschiedliche Werte mit Bedingung
22.08.2008 10:34:00
kerberus
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _
As Double
Dim Anzahl As New Collection
Dim Zelle As Range
Dim intCounter As Integer
On Error Resume Next
For Each Zelle In Wertebereich
If Zelle.Value "" Then
Anzahl.Add Zelle.Value, CStr(Zelle.Value)
End If
Next Zelle
ZUnterschiede = Anzahl.Count
On Error GoTo 0
End Function
Nun leider weiss ich nicht wie ich die Bedingung so einbauen kann, dass es mir nur die Anzahl unterschiedlicher Eintragungen (Wertebereich) bei einem Bestimmten Kriterium (Bedingung) innerhalb des Kriteriumbereichs ausgibt..
Vielen Dank für eure Hilfe!
Kerbi