Office: CountIf Erklärung

Guten Abend zusammen,

ich habe ein VBA Code der mir die ComboBox_test mit den gefilterten Werten ohne leere Zellen und ohne Doppelte Einträge füllt.

Kann mir jemand diesen Abschnitt genauer erklären?

If WorksheetFunction.CountIf(Range(Cells(2, 4), zelle), zelle) = 1 And zelle ""



Hier der komplette VBA Code:

ComboBox_test.Clear
Dim bereich As Range, zelle As Range

With Worksheets(" test")
Set bereich = .Range("A", .Cells(.Rows.Count, 1).End(xlUp))
End With

For Each zelle In bereich.SpecialCells(xlCellTypeVisible)

If WorksheetFunction.CountIf(Range(Cells(2, 4), zelle), zelle) = 1 And zelle "" Then

ComboBox_test.AddItem zelle

End If
Next zelle

Danke und Viele Grüße :-)

:)

 

Hallo,

Code:

Zähle im Bereich D2 bis xx (xx steht für den Bereich, den "zelle" grade hat) die Anzahl der Zellen, die den Wert von "zelle" haben. Wenn das Ergebnis 1 ist und der Inhalt von "zelle" nicht leer ist, dann mach was.

 

Hi,

danke für die schnelle Antwort. Und CountIf zählt keine doppelten Werte?

Viele Grüße

 

Wie kommst du darauf? Natürlich zählt es doppelte Werte. Es zählt alle zugreffenden Werte. Schau dir bitte in der Onlinehilfe ZÄHLENWENN an, damit du die Formel verstehst.

 

Hi gior,

...doch, doch. Zählenwenn (also CountIf) zählt im angegebenen Bereich alles, was dem angegebenem Kriterium entspricht.
Der Trugschluss rührt sicher daher, weil Du in der Bedingung angibst, dass
Code:

nur dann ausgeführt werden soll, wenn Countif 1 ergibt und das Kriterium nicht leer ist....

Möchtest Du die doppelten (und nur die doppelten) haben, dann musst Du die Bedingung ändern.
Code:

 

Ich Danke euch :-)

Ich bin noch an ein weiteres Problem gestoßen:

Ich möchte mit dem Autofilter in einer Spalte Filtern die einen TEXT aber auch eine Zahl enthalten kann oder Auch 013E56E.

Gibt es da eine Möglichkeit? Auch wenn ich die Spalte vollständig als Text formatiere werden einige Einträge ignoriert.

Worksheets(" test").AutoFilter.Range.AutoFilter Field:=3, Criteria1:=ComboBox_ZahlTEXT



Danke und Grüße

 

Lies diesen Satz bitte mal so, als ob du ein Außenstehender wärst. Hättest du irgendwas davon verstanden?

 

Hallo,

sorry für die schlechte Beschreibung. Es ist tatsächlich so.. wenn man in einer Sache "drinnen" ist beschreibt man es etwas anders. Ich probiere es aber nochmal :

Ich habe eine ComboBox in die ich mein Suchkriterium für den Autofilter eingebe. Die KomboBox heißt in meinem Fall ZahlTEXT. In der Spalte (3 die gefiltert werden soll) können Zahlen aber auch Texte stehen. Gib ich nun Beispielsweise "*" in meine ComboBox ein so werden nach dem Filtern nur die Werte die aus einer Buchstaben/Zahl Kombination bestehen oder nur Texte angezeigt. Die reinen Zahlenkombinationen sind nicht sichtbar. Wenn ich "*" eingebe müsste ja eigentlich keine Filterung stattfinden.

Kann ich meine Zelle/Spalte so formatieren das es trotzdem funktioniert?


Worksheets(" test").AutoFilter.Range.AutoFilter Field:=3, Criteria1:=ComboBox_ZahlTEXT

Viele Grüße

 

Ich würde das so angehen:
Code: