Option Explicit
Public Type Pivot_t
column As Integer
row As Integer
value As Integer
End Type
Public Function rangeToArray(aRangeAddress As String) As Variant
Dim vRange As Range
Dim i As Integer, j As Integer
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, b As Range
Dim xx As Pivot_t
Dim ret_array As Variant
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