Sub Daten_Speichern(dateibez As String) 
'Datei Speichern 2 
 
Dim i As Integer 
Open dateibez For Output As 100 
Write #100, Anzahl 
For i = 1 To Anzahl 
Write #100, X(i) 
Write #100, Y(i) 
Next 
Close 100

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)