VBA Matrix invertieren und transpornieren

[Kaka]

So?

Sub Matrix

Dim array1 As Double

Dim array2 As Double
Dim array3 As Double

With Sheets("Tabelle1")
array1=.Range("A1:A5")
array2=.Range("B1:B5")

array3=mmult(array1,array2)

Cells(5,1)=array3

End With

End Sub

[shift-del]

Eher so:

mmult(a1:a5,b1:f1)

Dann hast du ein Array von 5 Spalten und 5 Zeilen.

[Kaka]

Also so?

Sub Matrix

Dim array1 As Double

Dim array2 As Double
Dim array3 As Double

With Sheets("Tabelle1")
array1=.Range("A1:A5")
array2=.Range("B1:F1")

array3=mmult(array1,array2)

Cells(5,1)=array3

End With

End Sub

[shift-del]

array3=mmult(array1,array2)

Da dürfte noch ein Application.Worksheetfunction. vor mmult() fehlen.

Bitte benutze Code-Tags!

[Kaka]

Da dürfte noch ein Application.Worksheetfunction. vor mmult() fehlen.

Bitte benutze Code-Tags!

Code:

ub Matrix

[align=justify][color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Dim array1 As Double[/font][/size][/color][/align]
[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Dim array2 As Double[/font][/size][/color]
[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Dim array3 As Double[/font][/size][/color]

[color=#333333]With Sheets("Tabelle1")[/color]
[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]array1=.Range("A1:A5")[/font][/size][/color]
[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]array2=.Range("B1:F1")[/font][/size][/color]

[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]array3=Application.Multsheetfunction.mmult(array1,array2)[/font][/size][/color]


[align=justify][color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Cells(5,1)=array3[/font][/size][/color][/align]
[color=#333333]End With[/color]

End Sub

[Kaka]

Da dürfte noch ein Application.Worksheetfunction. vor mmult() fehlen.

Bitte benutze Code-Tags!

So?

Code:

Sub Matrix

Dim array1 As Double
Dim array2 As Double
Dim array3 As Double

With Sheets("Tabelle1")
array1=.Range("A1:A5")
array2=.Range("B1:F1")

array3=Application.Worksheetfunction.mmult(array1,array2)


Cells(5,1)=array3
End With

End Sub

[Kuwer]

Hallo Kaka,

Guckst Du: Arbeiten mit Bereichen - Range

Gruß Uwe

[Kaka]

Hallo Kaka,

Guckst Du: Arbeiten mit Bereichen - Range

Gruß Uwe

Das bedeutet doch, dass ich das Array sowohl als Double als auch als Variant definieren kann oder gibt es dort bestimmte Grenzen bzgl. des Überlaufs?

[Rabe]

Hi,

Code:

ub Matrix

[align=justify][color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Dim array1 As Double[/font][/size][/color][/align]
[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Dim array2 As Double[/font][/size][/color]
[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]Dim array3 As Double[/font][/size][/color]
[...]

woher kommen diese ganzen Schriftformatierungen? Was hast Du gemacht?

[schauan]

Hallo Ralf,

woher kommen diese ganzen Schriftformatierungen? Was hast Du gemacht?

... mit format-tags formatierten Text in code-tags setzen ...

Code:

... mit [color=#ff3333][font=Arial Black]format-tags[/font] [/color]formatierten Text in code-tags setzen ...

Allerdings sind die zum Teil wohl nicht von hier, den Monaco-Font gibt's z.B. nicht