public function maxanz (listbx as listbox)
 
     dim grössteanzahl as long
     dim i as long, j as long
     dim merke as long
 
     grössteanzahl=0
     for i=0 to listbx.listcount-1
          zähler=0
          merke=listbx.list(i)
          for j=0 to listbx.listcount-1
               if listbx.list(j)=merke then zähler=zähler+1
          next
          if zähler>grössteanzahl then grössteanzahl=zähler
     next
     maxanz=grössteanzahl
end function

Gru?

BernyH