dim rng as range, AV, R&, suchwert$
set rng=Range("deine tabelle")
av=rng.value
suchwert="Hans Hubert"
for r= 1 to ubound(av)
if instr(1,av(r,1),suchwert) then
rng(r,1).select
Msgbox "mitarbeiter gefunden"
exit for
end if
next
Dim List(),I&,Ausgabe
suchwert="Gruppe1"
for r= 1 to ubound(av)
if instr(1,av(r,2),suchwert) then
redim preserve list(i)
list(i)=av(r,1)
i=i+1
end if
next
redim ausgabe(i,0)
range(cells(1,1),cells(1+ubound(ausgabe),1)).value=ausgabe