arNO2trans = Application.WorksheetFunction.Transpose(arNO2)
Range(Cells(srtZei2, mSpa), Cells(srtZei2, mSpa +2).Resize(UBound(arNO2trans))= arNO2trans
ReDim Preserve arNO2(3, y)
arNO2(1, y) = Left(arLog(i, 1), 16)
arNO2(2, y) = Round(Application.Average( _
.Range(.Cells(sZei, NO2Spa), .Cells(eZei, NO2Spa))), 2)
arNO2(3, y) = (endDat - srtDat) * 24 * 60
Set rngDat = Range(Cells(srtZei2, mSpa - 1), Cells(Cells(Rows.Count, mSpa - 1).End(xlUp).Row, mSpa - 1))
arNO2trans = Application.WorksheetFunction.Transpose(arNO2)
Range(Cells(srtZei2, mSpa), Cells(srtZei2, mSpa +2).Resize(UBound(arNO2trans))= arNO2trans
ReDim Preserve arNO2(3, y)
arNO2(1, y) = Left(arLog(i, 1), 16)
arNO2(2, y) = Round(Application.Average( _
.Range(.Cells(sZei, NO2Spa), .Cells(eZei, NO2Spa))), 2)
arNO2(3, y) = (endDat - srtDat) * 24 * 60
Set rngDat = Range(Cells(srtZei2, mSpa - 1), Cells(Cells(Rows.Count, mSpa - 1).End(xlUp).Row, mSpa - 1))