Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CountIf über VBA mit zwei Bedingungen

Forumthread: CountIf über VBA mit zwei Bedingungen

CountIf über VBA mit zwei Bedingungen
11.03.2008 16:42:00
Andreas
Hallo Excel Freunde,
mein Name ist Andreas Hanisch und ich versuche mich gerade an meinem ersten VBA basierten countif – Code mit zwei Bedingungen. Hier im Forum habe ich leider nur Zählenwenn auf Formelbasis gefunden. Zugegeben, früher hätte ich mich darüber gefreut, als ich in VBA noch nicht so reingeschnuppert hatte ;-)
Nun denn. Ich habe keinen Ansatz gefunden, der funktioniert. In meiner Beispielarbeitsmappe habe ich in Modul 1 einen Code, der läuft, aber ein Falsches Ergebnis liefert und einen Code über SumProduct, der viel versprechend scheint, mir bisher aber immer den Debugger beschert.
In den Zellen C2/ D2 werden Attribute festgelegt, nach denen dann das Makro die Werte zählen soll, die beiden Attribute entsprechen.
Kann mir jemand freundlicherweise den Hinweis geben, warum meine ersten Code Konstrukte nicht korrekt laufen wollen? Wie sieht die optimale Code Konstruktion aus, die sich (relativ) unproblematisch um weitere Bedingungen ergänzen läßt.
https://www.herber.de/bbs/user/50646.xls
Vielen, vielen Dank für Eure Ideen und Anregungen an diesem sich dem Ende neigenden Dienstag…
Grüße, Andreas Hanisch

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CountIf über VBA mit zwei Bedingungen
11.03.2008 17:04:00
Rudi
Hallo,
einfach so:

Sub zählen()
Dim n As Long
Dim rngC As Range
For Each rngC In Range("A3:A50")
If rngC.Value = "aktiv" And rngC.Offset(0, 1).Value = "Europa" Then n = n + 1
Next
MsgBox n
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;
Anzeige

Beliebteste Forumthreads (12 Monate)

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