Private
Sub
CommandButton3_Click()
Dim
myRange
As
Range
Dim
myRange2
As
Range
Dim
uebArr()
As
Variant
Worksheets(
"Rows"
).Activate
Set
myRange = ActiveSheet.Range(ActiveSheet.Cells(1, 2), ActiveSheet.Cells(9, 3))
uebArr = myRange.Value
Debug.Print uebArr(1, 1) &
" "
& uebArr(9, 2)
Worksheets(
"Split"
).Activate
Set
myRange2 = ActiveSheet.Range(ActiveSheet.Cells(3, 2), ActiveSheet.Cells(11, 3))
myRange2.Value = uebArr
End
Sub