Datenauslesen

Hallo,
das Beispiel 1 (angehängt) funktioniert ansich wie es soll. Einzigstes Problem ist, dass man die Datei Funktion 2(angehängt) zweimal öffnen muss...
Gibt es eine möglichkeit, dass man das Programm so schreibt, dass man die Datei Funktion 2(angehängt) nur einmal öffnen muss?
Ich habe es mal mit dem Beispiel 2(angehängt) versucht, aber er gibt dort immer eine Fehlermeldung aus...

Vielen Dank schoneinmal für eure Hilfe.
Viele Grüße
Lutz