die unten stehende Function multipliziert zwei Vektoren miteinander, funktioniert aber leider nur, wenn die Vektoren jeweils vom Typ "Range" sind, also auf einem Tabellenblatt stehen. Ich möchte das Programm gerne dahingehend modifizieren, dass mindestens einer der Vektoren auch über mehrere Tabelleblätter gehen darf wie z.B. Tabelle1:Tabelle5!A1.
Public Function vmult(Vektor1 As Range, Vektor2 As Range)
Dim i, result
If Vektor1.Areas.Count > 1 Or Vektor2.Areas.Count > 1 Then
vmult = CVErr(xlErrRef): Exit Function
End If
If Vektor1.Cells.Count <> Vektor2.Cells.Count Then
vmult = CVErr(xlErrRef): Exit Function
End If
For i = 1 To Vektor1.Cells.Count
vmult = vmult + Vektor1.Cells(i) * Vektor2.Cells(i)
Next
End Function