Zellenprüfung, danach Multiplizieren und in anderW
01.03.2019 10:24:02
Ronny
Ich will den Wert aus "AH" Prüfen.
Wenn dieser da ist, soll in AZ der Wert ausgegeben werden.
Der ausgegebene Wer Multipliziert und dividiert durch BA*BB*BE*1,1/1000
--> Mir kommt das Ergebnis aber bei AH raus -.-
Sub Multiplizieren()
Dim Bereich As Range
Dim Zelle As Range
For Each Zelle In Range("AH2:AH150")
If Zelle = "125495" Then Zelle.Offset(0, 18) = Zelle(0, 18) ' Zellenergebnis
Zelle = Zelle.Offset(0, 19) * Zelle.Offset(0, 20) * Zelle.Offset(0, 23) / 1000 * 1.1 ' _
_
_
_
BA*BB*BE/1000*1,1
Next Zelle
End Sub