Hallo

ich bin immer wieder erstaunt was für mordkomplexe Codes die Kollegen anbieten, bei denen ich keinen Durchblick habe! Geht viel einfacher!

Sub Artikel_zählen()
Dim Art1, Art2, Art3, Txt1, Txt2, Txt3
Txt1 = "Groß": Txt2 = "Klein": Txt3 = "In"
Art1 = Application.WorksheetFunction.CountIf(Range("B:B"), Txt1)
Art2 = Application.WorksheetFunction.CountIf(Range("B:B"), Txt2)
Art3 = Application.WorksheetFunction.CountIf(Range("B:B"), Txt3)
MsgBox Art1 & "  " & Art2 & "  " & Art3
End Sub

mfg Nobody