Namen=UCASE("BLA")
Vorname=Ucase("mda")
GebOrt=Ucase("jo")
 
For i=1 to Summe_deiner_Einträge
  SuchNamen=SpeicherSpalte_des_Namens,i)
  SuchVNamen=SpeicherSpalte_des_VorNamens,i)
  SuchGebOrt=SpeicherSpalte_des_GebOrts,i)
 
  If Ucase(SuchNamen)=Namen then 
    If UCase(SuchVNamen)=VorNamen then 
      If UCase(SuchGebOrt)=GebOrt then 
        MsgBox"Doppelt"
        Exit for
      End if
    End if
  End if
Next

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)