Makro Einträge zählen, mit Bedingungen

Hallo,
ich möchte folgendes per Makro zählen:
Es steht in den Zellen ab Reihe 4 (bis 58) in
Spalte A .........Spalte E
ABC.................Nein...................zählen ja.................Zähler =1
ABC.................Ja.......................zählen nein.............Zähler =1
XYZ..................Nein...................zählen ja.................Zähler =2
GFD..................Ja.......................zählen nein.............Zähler=2
XYZ..................Nein...................zählen nein..............Zähler=2
Es soll nur gezählt werden, wenn in der Spalte E ein "Nein" steht,
dabei dürfen die Doppelten in Spalte A nur einmal berücksichtigt werden.
Das Ergebnis hier sollte sein: 2
Diesen Wert möchte ich dann als Variable in einem bestehenden Makro weiterführen.
Schon mal vielen Dank
Grüße
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
hier mal noch eine Version mit einer Funktion.
kommt als Code in ein Modul

Option Explicit 
 
Function Count_A_E_Nein(strSH As String, Optional booMatchCase As Boolean = True) As Long 
Dim oDic As Object 
Dim myAr 
Dim A As Long 
Dim Bereich As Range 
Application.Volatile 
 
With Sheets(strSH) 
 Set Bereich = .Range("A4", .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 4)) 
 
    If Intersect(Bereich, .Rows("1:3")) Is Nothing Then 
        myAr = Bereich 
        Set oDic = CreateObject("Scripting.Dictionary") 
         
        If booMatchCase Then 
            For A = 1 To Ubound(myAr) 
             If myAr(A, 5) = "NEIN" Then 
              oDic(myAr(A, 1) & myAr(A, 5)) = 0 
             End If 
            Next A 
        Else 
            For A = 1 To Ubound(myAr) 
             If LCase(myAr(A, 5)) = "nein" Then 
              oDic(LCase(myAr(A, 1)) & LCase(myAr(A, 5))) = 0 
             End If 
            Next A 
        End If 
     
        Count_A_E_Nein = oDic.Count 
    End If 
 
End With 
Set Bereich = Nothing 
End Function 
 
Sub Beispiel() 
Dim Ergebnis As Long 
 
'Verwendung der Funktion 
'1. Parameter Tabelle wo gesucht werden soll 
'2. Parameter optional Groß und Kleinschreibung beachten 
 
'Beipiel Groß und klein Schreibweise beacheten 
Ergebnis = Count_A_E_Nein("Tabelle2") 
 
'Beipiel Groß und klein Schreibweise nicht beacheten 
Ergebnis = Count_A_E_Nein("Tabelle2", False) 
 
 
End Sub

Du kannst es aber auch als Formel in Excel verwenden.

	A	B	C	D	E
1	2
2
3
4	ABC				NEIN
5	ABC				NEIN
6	XYZ				NEIN
7	GFD				JA
8	XYZ				NEIN

Formeln der Tabelle

Zelle	Formel
A1	=Count_A_E_Nein("Tabelle2")

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Makro Einträge zählen, mit Bedingungen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Einträge zählen, mit Bedingungen

5 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)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread