dim daten
dim name, nachname as string
excel.workbooks.open(app.path& "/mitarbeiter.xls")  ' die mitarbeiter.xls muss 
' in dem gleichen pfad sein wie deine anwendung
set daten = excel.workbooks("Mitarbeiter.xls").sheets("Mitarbeiter")
Name = daten.cells.item(1,1)           ' (Zeile,Spalte)
vorname = daten.cells.item ( 1,2)

dim daten
dim name, nachname as string
excel.workbooks.open(app.path& "/mitarbeiter.xls")  ' die mitarbeiter.xls muss 
' in dem gleichen pfad sein wie deine anwendung
set daten = excel.workbooks("Mitarbeiter.xls").sheets("Mitarbeiter")
Suchname = txt_suchname.text
 
zeilen = daten.UsedRange.Rows.Count - 1 ' feststellen der belegten zeilen in 
' mitarbeiter.xls
for zeile = 2 to zeilen
If daten.Cells.Item(zeile, 1) = suchname Then  ' den suchnamen vergleichen
txt_name.text= daten.cells.item(zeile,1) ' dann von der tabelle ins feld legen
txt_vorname.text= daten.cells.item(zeile,2)
Exit For
End IF
next