Bei Hausaufgaben gibt es nur einen ungeprüften Code:
function Anz_Buch(rng ) as integer for i = 1 to len(rng) if mid(rng,i,1) like "@" then b = b+1 next i Anz_Buch = b end function