Function test()
 
Dim sLine As String 
Dim F2 As Integer
Dim I As Integer
Dim F1 As Integer
Dim sFile1 As String
Dim sFile2 As String
Dim db5 As Database
Dim rs3 As Recordset
Dim rs4 As Recordset
Dim ersterwert As Long
Dim zweiterwert As Long
Dim s As String
 
 
 
' Öffnen der Vorlagendatei
  sFile1 = Globals.HtmlVorlagenPfad & "Vorlage.HTM"
' Neue Profil-Datei im HTML-Format, die ausgegeben wird
  sFile2 = Globals.HtmlVorlagenPfad & Me.MA_Nr_Berater.Value & ".htm"
 
' Beide Dateien öffnen
  F1 = FreeFile: Open sFile1 For Input As #F1
  F2 = FreeFile: Open sFile2 For Output As #F2
 
Set db5 = CurrentDb()
 
' Sortiertes Öffnen der Ergebnis-Datensätze, hier werden Datensätze mit 
' Suchtreffern sortiert geöffnet (funktioniert)
Set rs3 = CurrentDb.OpenRecordset("select * from U_kat_Suchbegriffe order by" & _
  "IdNummer ASC")
 
 
zweiterwert = rs3!IdNummer      ' Erster Wert dieser Tabelle
rs3.MoveNext
 
While Not rs3.EOF
 
ersterwert = zweiterwert
zweiterwert = rs3!IdNummer
 
 
' Jetzt aus Recordset3 alles suchen was zwischen den beiden Werten liegt.
' Wichtig: In der Tabelle TextReadIn stehen die Datensätze, um die es geht
 
 
    Set rs4 = CurrentDb.OpenRecordset("SELECT * FROM TextReadIn WHERE " & _
                                        "IdNummer >= " & ersterwert & " AND" & _
                                        "IdNummer < " & zweiterwert)  
 
    ' Nun beginnt mein eigentliches Problem: Die Datensätze, die zwischen den 
    ' beiden Werten liegen 
    ' sollen in die Neue Profil-Datei F2 geschrieben werden        
 
                 While Not EOF(F1)
                      Line Input #F1, sLine
                        sLine = replace(sLine, "Jahrgang", rs4!TextRead)
                        sLine = replace(sLine, "Taetigkeiten", rs4!TextRead)
                        sLine = replace(sLine, "Staatsangehörigkeit", _
                          rs4!TextRead)
                        ' usw.                    
 
                        Print #F2, left(sLine, 255)
 
                  Wend
            While Not rs4.EOF 
            rs4.MoveNext
 
            Wend
         rs3.MoveNext
 
Wend
 
Close #1
Close #2
rs3.Close
rs4.Close
db5.Close
Set db5 = Nothing
Set rs3 = Nothing
Set rs4 = Nothing
 
End Function