Option
Explicit
Sub
Test()
Dim
rngMeasureData(1
To
2)
As
Excel.Range
Dim
lngMeasureDataCount
As
Long
With
Worksheets(
"Rohdaten"
)
lngMeasureDataCount = .Range(
"B10"
)
Set
rngMeasureData(1) = .Range(
"A14"
).Resize(lngMeasureDataCount)
Set
rngMeasureData(2) = .Range(
"A14"
).Offset(lngMeasureDataCount).Resize(lngMeasureDataCount)
End
With
With
Worksheets(
"Messung 1"
).Range(
"A1"
)
.Resize(lngMeasureDataCount).Value = rngMeasureData(1).Value
End
With
With
Worksheets(
"Messung 2"
).Range(
"C1"
)
.Resize(lngMeasureDataCount).Value = rngMeasureData(2).Value
End
With
End
Sub