CountIf

Question

Hallo,

möchte in einer Tabelle mit 4 Spalten die Datensätze zählen, die in allen Spalten identisch sind:
...
Text = Cells(iRow,1) & Cells(iRow, 2) & Cells(iRow, 3) & Cells(iRow, 4)
c = Application.WorksheetFunction.CountIf(Range("A:D"), Text)
...
Wollte das so mit countif lösen, was aber nicht geht. Weiß jemand wie der Code aussehen müsste?
Gruß Andreas

Answer 1

Hallo Andreas,

....etwas so

Option Explicit

Sub test()
Dim Text1 As String, Text2 As String, Text3 As String, Text4 As String
Dim c As Integer
Text1 = "a"
Text2 = "b"
Text3 = "c"
Text4 = "d"
c = WorksheetFunction.CountIfs(Range("A:A"), Text1, Range("B:B"), Text2, Range("C:C"), Text3, Range("D:D"), Text4)
Range("E1") = c
End Sub

Gruß
Rainer

Answer 2

Hallo Rainer,

danke, das funzt!! Frag mich nur, warum ich nicht mal auf so eine Idee komme...???
Gruß Andreas