Set db = CurrentDb
Set rs = db.OpenRecordset("Suchbegriffe")    ' Hier stehen die gefundenen 
' Datensatznummern drin
 
Open "C:Endergebnis.htm" For Output As #1
 
  nCount = 0
  spos = 0             ' 1. Datensatz mit angenommener Datensatznummer "15"
  epos = 1             ' 2. Datensatz mit angenommener Datensatznummer "25"
 
  Do Until rs.EOF
 
        ' Alles zwischen sPos und ePos filtern
          sTemp = epos - spos
          Set db2 = CurrentDb()
          Set rs2 = db2.OpenRecordset("Text", dbOpenDynaset)   ' Hier stehen 
          ' auch die Datensatznummern + Inhalte drin
          sTemp2 = sTemp
          Print #1, sTemp2
          epos = epos + 1
          spos = spos + 1
   Loop
 
      db2.Close
      Set db2 = Nothing
      rs2.Close: Set rs2 = Nothing
 
Close #1
rs.Close: Set rs = Nothing
Set db = Nothing