|
Mitarbeiter|Gruppe
Hans Hubert|1
Max Musterman|2
Wenn du auf eine Tabelle, die in etwa so aussieht zugreifen kannst, dann sollte das kein Problem sein...
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
'für liste
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
|