Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pos As Long
Dim target As String
Dim html As String
Dim rs2 As Recordset
 
Set db = CurrentDb
Set rs = db.OpenRecordset("TextReadIn")
 
' Tabelle mit den Begriffen öffnen
Set rs2 = db.OpenRecordset("U_kat_Berater")
 
Do Until rs.EOF
  rs2.MoveFirst
  Do Until rs2.EOF
    pos = InStr(rs("TextRead"), rs2("Kategoriename"))   ' hier die Fehlermeldung
    If pos > 0 Then  ' Vergleich erfolgreich
        html = ToolBox.readFile(Globals.HtmlVorlagenPfad & "CLS_Vorlage.HTM")
        html = htmlTool.fillInData(html, "test", rs)
    Else
        html = ToolBox.readFile(Globals.HtmlVorlagenPfad & "CLS_Vorlage2.HTM")
        html = htmlTool.fillInData(html, "test2", rs)
    End If
    rs2.MoveNext
  Loop
  rs.MoveNext
Loop
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing
Set db = Nothing
ToolBox.writeFile target, html