Public Type Pivot_t
column As Integer
row As Integer
value As Integer
End Type
Public Function rangeToArray(aRangeAddress As String)
Set vRange = Range(aRangeAddress)
Dim retArray
ReDim retArray(1 To vRange.Rows.Count, 1 To vRange.Columns.Count)
For i = 1 To vRange.Rows.Count
For j = 1 To vRange.Columns.Count
retArray(i, j) = vRange.Cells(i, j).value
Next j
Next i
rangeToArray = retArray
End Function
Public Function getPivot() As Pivot_t
getPivot.column = -1
getPivot.row = -1
getPivot.value = -1
End Function
Public Sub dumpPivot(aPivot As Pivot_t)
MsgBox ("Geht")
End Sub
Public Function Copy_YellowToRed()
Dim a As Range
Dim xx As Pivot_t
Set a = Range("D5:F7")
ret_array = rangeToArray(a.Address)
Set b = Range("L19:K40")
b.value = ret_array
xx = getPivot()
dumpPivot (xx)
MsgBox (xx.value)
End Function