dim coll as NotesDocumentCollection dim view as NotesView dim anzahl as long ... set coll = view.getAllDocumentsByKey(KATEGORIE) anzahl = coll.count