FONT FACE= Arial  SIZE=2 P Sprachen /TD
TD WIDTH=72% VALIGN=TOP COLSPAN=2 HEIGHT=16
FONT FACE= Arial SIZE=2  P Englisch (Projektsicher), Französisch ( _
  Projektsicher), Spanisch (Mittel) TD
/TR
TR TD WIDTH=28% VALIGN=  TOP  HEIGHT=16 P /P TD
TD WIDTH=72% VALIGN=TOP COLSPAN=2 HEIGHT=16 P  /P /TD
/TR
TR TD WIDTH=28% VALIGN= TOP HEIGHT=16
FONT FACE=Arial SIZE=2 P Branchen /TD
TD WIDTH=72% VALIGN= TOP COLSPAN=2 HEIGHT=16
FONT FACE=Arial SIZE=2 P Mischkonzerne, Anlagenbau, Automotive, Energie, _
  ölindustrie/TD
TR

Sprachen "Arial" SIZE=2>
 
Branchen "Arial" SIZE=2>

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pos As Long
Dim rs2 As DAO.Recordset
Dim sFound() As String
Dim nCount As Integer
Dim rest As String
 
Set db = CurrentDb
Set rs = db.OpenRecordset("TextReadIn")
 
Open "C.ergebnis.htm" For Output As #1
Open "C:ergebnis2.htm" For Output As #2
 
' Tabelle mit Kategorien öffnen
Set rs2 = db.OpenRecordset("U_kat")
 
Do Until rs.EOF
  rs2.MoveFirst
  nCount = 0
  ReDim sFound(0) As String
 
  Do Until rs2.EOF
    pos = InStr(rs("TextRead"), rs2("Uk_Name"))
    rest = Mid$(rs("TextRead"), Len(rs2("Uk_Name")) + 1, 255)
 
    If pos > 0 Then  ' Vergleich erfolgreich
      nCount = nCount + 1
      ReDim Preserve sFound(nCount)
      sFound(nCount) = rs2("Uk_Name")
 
    End If
 
    rs2.MoveNext
 
   Loop
 
       For I = 1 To nCount
       Print #1, sFound(nCount)
       Print #2, rest
    Next I
 
  rs.MoveNext
Loop