Teilergebnis 103 Anzahl2 mit Bedingungen

Public Function zählenSpezial(Bereich As Range) As Long Dim zelle As Range Dim dic Set dic = CreateObject("scripting.dictionary") For Each zelle In Bereich If Not zelle.Height = 0 And Not zelle.Value = "" And Not dic.exists(zelle.Value) Then dic.Add zelle.Value, "" End If Next zelle zählenSpezial = dic.Count End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo,
Teste mal diese 3:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

'1) zählenspezial1
'Anzahl2 wie oben unter folgenden Bedingungen:
'mit doppelten Werten, ohne leere Werte ()
'
'2) zählenspezial2
'Anzahl2 wie oben unter folgenden Bedingungen:
'mit doppelten Werten, ohne leere Werte (), ohne Werte nein
'
'3) zählenspezial3
'Anzahl2 wie oben unter folgenden Bedingungen:
'mit doppelten Werten, ohne leere Werte (), ohne Werte ?
'
'4) zählenspezial4
'Anzahl2 wie oben unter folgenden Bedingungen:
'mit doppelten Werten, mit Werten ja

Function ZählenSpezial1(bereich As Range) As Long
    Dim zelle As Range
    Dim mydic
    Dim L As Long
    Set mydic = CreateObject("scripting.dictionary")
    For Each zelle In bereich
        If zelle.Height <> 0 Then
            If zelle.Value <> "" Then
                L = L + 1
                mydic(L) = 0
            End If
        End If
    Next zelle
    ZählenSpezial1 = mydic.Count
End Function

Function ZählenSpezial2(bereich As Range) As Long
    Dim zelle As Range
    Dim mydic
    Dim L As Long
    Set mydic = CreateObject("scripting.dictionary")

    For Each zelle In bereich
        If zelle.Height <> 0 Then
            If zelle.Value <> "" Then
                If zelle.Value <> "nein" Then
                    L = L + 1
                    mydic(L) = 0
                End If
            End If
        End If
    Next zelle
    ZählenSpezial2 = mydic.Count
End Function

Function ZählenSpezial3(bereich As Range) As Long
    Dim zelle As Range
    Dim mydic
    Dim L As Long
    Set mydic = CreateObject("scripting.dictionary")

    For Each zelle In bereich
        If zelle.Height <> 0 Then
            If zelle.Value <> "" Then
                If zelle.Value <> "?" Then
                    L = L + 1
                    mydic(L) = 0
                End If
            End If
        End If
    Next zelle
    ZählenSpezial3 = mydic.Count
End Function

Zählenspezial 4 hab ich nicht verstanden.
Sollen da nur Zellen mit "ja" gezählt werden?
ransi

Function ZählenSpezial4(bereich As Range) As Long Dim zelle As Range Dim mydic Dim L As Long Set mydic = CreateObject("scripting.dictionary") For Each zelle In bereich If zelle.Height 0 Then 'If zelle.Value "" Then If zelle.Value = "ja" Then L = L + 1 mydic(L) = 0 End If 'End If End If Next zelle ZählenSpezial4 = mydic.Count End Function

Beliebteste Forumthreads (12 Monate)

Teilergebnis 103 Anzahl2 mit Bedingungen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teilergebnis 103  Anzahl2 mit Bedingungen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teilergebnis 103 Anzahl2 mit Bedingungen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread