Hallo Thomas,
hast du diesbezüglich den Fehler schon rekonstruieren können?
Folgendes wird ja nur durchlaufen, wenn "foundid" nicht leer ist. Dann ist und bleibt der Rückgabewert "replaceanswercode" auch leer. Also müsste man evtl. (quick&dirty) eine Defaultzuweisung vor der Abfrage durchführen.
If foundid <> "" Then
' replace the found id
returnreplace = Replace(me_findreplace, foundid, replacewith)
replaceanswercode = returnreplace
Else
replaceanswercode = me_findreplace
End If
Also anstatt weiter oben:
folgende Zeile:
replaceanswercode = me_findreplace