|
Hallo zusammen,
ich brauche Hilfe bei der Multiplikation von 2 Spalten Vektoren.
Folgendes Datenblatt (Spalte A und B sind Daten und Spalte D das Ergebnis der Multiplikation)
Dazu habe ich folgenden Code geschrieben:
Sub Test()
Dim i As Integer
Dim A_vec() As Double
ReDim A_vec(1 To 5)
Dim B_vec() As Double
ReDim B_vec(1 To 5)
Randomize
For i = 1 To 5
A_vec(i) = ActiveSheet.Cells(i, 1).Value
B_vec(i) = ActiveSheet.Cells(i, 2).Value
ActiveSheet.Cells(i, 4) = A_vec(1) * B_vec(Int(5 * Rnd() + 1))
Next i
End Sub
Das Ziel soll sein, dass er den ersten Wert des A Vektors mit einer zufälligen Zahl des B Vektors multipliziert und in D für Zeile 1 bis 5 ausgibt.
Wie kann in dieser Rechnung eine 0 auftauchen, bzw. wie kann der Code umgeschrieben werden, sodass keine 0 mehr auftaucht.
Ich wäre für jede Hilfe sehr dankbar.
|