addition von matrizen in vba
11.06.2004 10:33:06
matrizen
ich benötige funktionen wie addition von matrizen und elementweise multiplikation einer matrix mit einem skalar in vba, um dort berechungen in selbstdefinierten funktionen effizienter durchführen zu können. da in vba solche elementweise operationen auf matrizen nicht verfügbar sind, habe ich versucht, mir selbst welche zu basteln. diese funktionieren zwar bei aufruf in excel, nicht aber, wenn ich sie von anderen vba funktionen aus aufrufe.
1. die funktion, welche matrizen elementweise addiert:
Function madd(m1 As Variant, m2 As Variant) As Variant
Dim i, j, nr, nc As Integer
nr = m1.Rows.count
nc = m1.Columns.count
Dim madd2() As Double
ReDim madd2(1 To nr, 1 To nc) As Double
For i = 1 To nr
For j = 1 To nc
madd2(i, j) = m1(i, j) + m2(i, j)
Next j
Next i
madd = madd2
End Function
2. Aufruf in anderer Funktion:
v2 = madd(v0,v1)
wobei v0-v2 vom typ variant sind
wisst ihr vielleicht, warum das nicht funktioniert?
gruss und danke
thomas