Public Function sp(dtime As Range, disk As Range, laufz As Range, spread As Range, ...) As Variant
Dim Sd#(), Sk#(), Sl#(), Ss#()
ReDim Sd(dtime.Rows.Count)
For i = 1 To UBound(Sd)
Sd(i) = dtime.Cells(1, i).Value
Next i
ReDim Sk(disk.Rows.Count)
For i = 1 To UBound(Sk)
Sk(i) = disk.Cells(1, i).Value
Next i
ReDim Sl(laufz.Columns.Count)
For i = 1 To UBound(Sl)
Sl(i) = laufz.Cells(1, i).Value
Next i
ReDim Sz(spread.Columns.Count)
For i = 1 To UBound(Sz)
Sz(i) = spread.Cells(1, i).Value
Next i
dann weiß ich nicht mehr weiter....