Versuch mal sowas:

Code:
With x as (Select distinct PersNr
             From YourTable
             Where Art = 100)
Select a.*
From YourTable a Exception Join x on a.PersNr = x.PersNr;
Birgitta