Werte aus 2 Listen multiplizieren und ertsetzen
15.06.2020 10:21:38
Daniel
ich habe folgendes Problem:
Es gibt ein Wert welcher in meinem Bsp. als "suche" deklariert wurde. In der nächsten Spalte von "suche" steht ein Wert ("val2") welcher mit einem anderen Wert aus einer 2 Liste multipliziert werden soll. Der Wert "suche" ist in beiden Listen vorhanden. Die Besonderheit hier bei, entweder ist ein Wert in der 6 ODER der 7 Spalte neben dem Wert "suche" in Liste 2 eingetragen. Der Wert aus Spalte 6 oder 7 soll nun mit dem wert "val2" aus Liste 1 multipliziert und anschließend in der Liste 2 für den alten Wert ersetzt werden. Nun habe ich folgenden Code:
If suche.Offset(0, 6) = "" Then
suche.Offset(0, 7).Value = suche.Offset(0, 7).Value * val2
Else
suche.Offset(0, 6).Value = suche.Offset(0, 6).Value * val2
Der Code läuft durch und es gibt keine Fehlermeldung. Jedoch wird der Wert in der Liste 2 nicht ersetzt.
Hat jemand eine Idee wo hier der Fehler liegt ?
Lieben Gruß und vielen Dank im voraus
Daniel