Hallo Leute,
die Sub dumpPivot soll als Argument ein Objekt von dem Benutzerdefinierten Typ Pivot_t bekommen. Leider kommt hier immer die Fehlermeldung: "Variable erforderlich - Zuweisung an diesen Ausdruck nicht möglich". Weis jemand was hier noch fehlt?
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")
'Some output/debug messages
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) 'doesnt work :-(
MsgBox (xx.value)
End Function
|