Addieren oder Multiplizieren von Varianten in VBA
Angenommen, wir haben zwei Varianten,X
undY
, das können Zahlen, Bereiche oder Arrays sein. Gibt es eine einfache Möglichkeit, sie wie in Arbeitsblattformeln zu addieren oder zu multiplizieren?=X+Y
und=X*Y
?
Eine Möglichkeit, die ich mir vorgestellt habe, ist die Verwendung der Evaluate-Operation, etwa so:
Dim X, Y
Sub AddMult()
Dim Add, Mult
X = Array(Array(1, 3), Array(2, 4))
Y = Array(1, 2)
Add = [GetX()+GetY()]
Mult = [GetX()*GetY()]
End Sub
Function GetX()
GetX = X
End Function
Function GetY()
GetY = Y
End Function
Es scheint ein wenig umständlich. Irgendwelche anderen Ideen?
(Hier ist eine verwandte Frage:Multiplizieren von Arrays mit Skalaren und Hinzufügen von VBA.)