Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorksheetFunction CountIf

WorksheetFunction CountIf
17.02.2007 23:17:00
Sonnenpeter
Hallo zusammen,
ich habe folgendes Problem.
Der Makrorecorder zeichnet folgendes auf:
ActiveCell.FormulaR1C1 = "=COUNTIF(R[28]C[1]:R[400]C[1],"""")"
In VBA wird aber "COUNTIF" automatisch in CountIf abgeändert 

Sub Test ()
Set myRange = Worksheets("Projektliste").Range("B9:B408")
answer = Application.WorksheetFunction.CountIf(myRange)
MsgBox answer
End Sub

Beim ablaufen des Makros erhalt ich den Fehler "Fehler beim Kompilieren"?
Was kann ich tun?
Gruß Sonnenpeter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorksheetFunction CountIf
17.02.2007 23:22:00
Sonnenpeter
Hallo nochmal,
Hatte da noch einen Fehler drin.

Sub Test()
Set myRange = Worksheets("Projektliste").Range("B9:B408")
answer = Application.WorksheetFunction.CountIf(myRange, "" <> "")
MsgBox answer
End Sub

Jetzt erhalte ich allerdings den Wert 0, müsste aber 47 sein.
Gruß Sonnenpeter
AW: WorksheetFunction CountIf
17.02.2007 23:56:00
Kurt
Hi,
ZÄHLENWENN
Zählt die nicht leeren Zellen eines Bereichs, deren Inhalte mit den Suchkriterien übereinstimmen.
mfg Kurt
AW: WorksheetFunction CountIf
18.02.2007 08:59:00
Ramses
Hallo
Da hast du ein Problem mit den Anführungszeichen :-)

Sub Test_Count()
Dim myRange As Range
Dim Answer As Integer
Set myRange = Worksheets("Projektliste").Range("B9:B408")
Answer = Application.WorksheetFunction.CountIf(myRange, "<> """)
MsgBox Answer
End Sub

Entgegen einer Formel in denen Anführungszeichen vorkommen, müssen bei Funktionen die direkt in VBA ausgewertet werden die Anführungszeichen nicht doppelt ausgeführt werden.
Gruss Rainer
Anzeige
AW: WorksheetFunction CountIf
18.02.2007 11:04:00
Sonnenpeter
Hallo Rainer,
Danke für die Hilfe, wie immer kleine Ursache große Wirkung.
Habe noch mal abgewandelt in:

Sub Test_Count()
Dim myRange As Range
Dim Answer As Integer
Set myRange = Worksheets("Projektliste").Range("B9:B408")
Answer = Application.WorksheetFunction.CountIf(myRange, "> """)
MsgBox Answer
End Sub

Jetzt stimmt das Ergenis.
In Deiner Variante werden die leeren Zellen gezählt.
Gruß Sonnenpeter
AW: WorksheetFunction CountIf
18.02.2007 13:10:00
Ramses
Hallo
"...In Deiner Variante werden die leeren Zellen gezählt...."
Stimmt nicht.
Der Parameter lautet " <> "" ",... oder übersetzt: Zähle alle Zellen die nicht leer sind.
Mit deiner Anweisung prüftst du " > "" ",... oder übersetzt alle Zellen die Text enthalten !!!
Glaub mir einfach :-)
Gruss Rainer
Anzeige

300 Forumthreads zu ähnlichen Themen

Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 Beiträge
Schriftart einer Email aus Excel mit VBA änder
Helmut

Hallo,
ich generiere aus Excel eine Email und möchte in dieser generierten Email die Schriftart im Body verändern.
Kann mir jemand helfen?
Danke
Helmut
11.05.2009 15:01:05
Thread-ID: 1074366
2 Beiträge
Anzeige
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
zählenwenn mit mehreren bedingungen
di

Hallo,
ich versuche eine zählenwenn Funktion mit mehreren Bedingungen aufzubauen. Dafür verwende ich die Funktion summenprodukt.
Es sollen dabei aus einer Tabelle für jede Woche die Anzahl der Arbeitstage ermittelt (gezählt werden). Die Wochen sind fortlaufend nummeriert, die Tage von 1...
23.07.2009 13:44:29
Thread-ID: 1090803
4 Beiträge
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
5 Beiträge
Auslesen von Daten mit mehreren Bedingungen
Daten

Hallo...,
ich habe mit der folgenden Formel einen Wert aus einer Tabelle ermittelt:
=INDEX(Tabelle1!$G$3:$G$380;VERGLEICH(Tabelle1!A149&Tabelle1!B149; Tabelle1!$A$3:$A$342&Tabelle1!$B$3:$B$672;0))
Da die Werte der Spalten A und B in Tabelle1 ständig die Zeilen wechseln wür...
07.10.2009 13:01:49
Thread-ID: 1107773
10 Beiträge
VBA Daten einlesen mit var. Überschriftenzeile
Stefan

Hallo zusammen,
ich habe vor einiger Zeit hier schon mal um Rat gefragt als ich Daten aus einer externen Arbeitsmappe einlesen wolle. Nun möchte ich in einem Optionsblatt eine Variable einbinden in der die Überschriftenzeile zum einlesen steht:
Public Sub data() Dim objWB As Workbook, o...
17.11.2009 13:40:57
Thread-ID: 1117728
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
1
3
1
1
8
3
4
9
5
11
3
6
2
2
5
2
6
4
3
5
3
6
14
4