Funktionen verschachteln
06.12.2020 21:00:08
Bernhard
ich möchte in verschachtelten Funktionen Vektoren manipulieren. Für Skalare funktioniert _ Folgendes:
Function m_add(V1, V2)
m_add = V1 + V2
End Function
Function m_mult(V, M)
m_mult = V * M
End Function
Function m_addmult(V1, V2, M)
m_addmult = m_mult(m_add(V1, V2), M)
End Function
für Vektoren jedoch nicht:
Function m_Vadd(V1 As Range, V2 As Range)
ReDim mVadd(1 To 2)
mVadd(1) = V1(1) + V2(1)
mVadd(2) = V1(2) + V2(2)
m_Vadd = mVadd
End Function
Function m_Vmult(V As Range, M)
ReDim mVmult(1 To 2)
mVmult(1) = M * V(1)
mVmult(2) = M * V(2)
m_Vmult = mVmult
End Function
Function m_VAddmult(V1 As Range, V2 As Range, M)
m_VAddmult = m_Vmult(m_Vadd(V1, V2), M)
End Function
Hilfe willkommen,
Grüße
Bernhard
Anzeige