ich gehe davon aus dass die Accessabfrage über ADO läuft. Damit kannst du doch eine SQL-Abfrage an die Datenbank vornehmen.
Zunächst die SQL-Abfrage definieren:
Such = InputBox("Nachname: ", "Suche nach Namen")
Such = "'" & Such & "'"
Sql = "SELECT NachName, VorName, GebDat "
Sql = Sql & "FROM Personal "
Sql = Sql & "WHERE NachName = " & Such
dann Recordset festlegen:
Set Rec = New ADODB.Recordset
Rec.Open Sql, Conn, adOpenKeyset, adLockOptimistic
und das Ergebnis der Abfrage in die Tabelle übernehmen:
ActiveSheet.Cells(4, 1).CopyFromRecordset Rec
Ich denke dass dein Problem mit der entsprechenden
Definition der SQL-Abfrage gelöst werden kann.
Viele Grüße
Herby