Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Countif in VBA

Countif in VBA
28.10.2005 14:23:49
Tinu
Liebe VBA Könner
Ich möchte in einem Arbeitsblatt diejenigen Zellen im Bereich C3 bis C"letzteZeile" zählen, welche nicht Null und nicht leer sind und habe dazu folgenden Code geschrieben:
NuRes = WorksheetFunction.CountIf(.Range("C3:C" & lz2), ("&lt&gt0" And "&lt&gt"))
Leider kommt aber immer die Meldung "Type mismatch". Ohne die "And" Funktion funktioniert es. Der Fehler muss also irgendwo in dieser und-Verknüpfung der Kriterien liegen.
Für Euere Hilfe wäre ich sehr dankbar.
Gruss
Tinu

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Countif in VBA
28.10.2005 14:31:37
Herbert
Hi,
Zählenwenn nach leeren Zellen liefert abenteuerliche Ergebnisse.
mfg Herbert
AW: Countif in VBA
28.10.2005 14:39:32
Tinu
Hi Herbert
Ich zähle nicht leere Zellen, sondern nichtleere.
Gruss
Tinu
AW: Countif in VBA
28.10.2005 14:49:32
Herbert
Hi,
einzeln zählen und addieren.
mfg Herbert
AW: Countif in VBA
28.10.2005 15:49:10
Tinu
Hallo Herbert
Nicht ganz korrekt, aber Du hast mir den entsprechenden Denkanstoss gegeben. Nullen zählen, Nichtleere zählen und Nullen von Nichtleeren abzählen:
lz2 = .Range("C200").End(xlUp).Row
NuNull = WorksheetFunction.CountIf(.Range("C3:C" & lz2), "=0")
NuNiLeer = WorksheetFunction.CountIf(.Range("C3:C" & lz2), "&lt&gt")
NuRes = NuNiLeer - NuNull
besten Dank
Tinu
Anzeige
AW: Countif in VBA
28.10.2005 15:17:45
UweD
Hallo
Zählenwenn geht nur mit einer Bedingung.
In der Tabelle ginge aber z.B.
=SUMMENPRODUKT((C1:C100"")*(C1:C100"0"))
Bekomme es aber gerade nicht ins VBA übersetzt.
Hier hänge ich..
NuRes = WorksheetFunction.SumProduct _
((Range("C1:C100") """") * (Range("C1:C100") ""0""))
Gruß UweD
(Rückmeldung wäre schön)
AW: Countif in VBA
28.10.2005 15:55:44
Tinu
Hallo Uwe
Danke für Deinen Hinweis, dass Zählenwenn nur EINE Bedingung erlaubt. Dies ist offenbar nicht nur bei VBA so. Mit dem Summenprodukt gige es wahrscheinlich auch, aber ich habe immer meine liebe Mühe mit den vielen Anführungszeichen, wenn Worksheet Funktionen in VBA übersetzt werden. Ich habe nun die Lösung gemäss meiner Antwort an Herbert "eingebaut"
Nochmals besten Dank
Tinu
Anzeige

168 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige