Hallo,
ich habe Eure Tipps und anregungen getestet.
@ Harald
Das Script habe jetzt so angepasst:
Sub VBFunktion_2()
' Read data from file()
Dim fso, f, field, MyZf, data, splitdata , test(5000,11), j
Dim n, delimiter, FileName,Bez
n=0
j=0
FileName = "D:\Produktdaten\TestCsv1.csv"
'Catch Erros...