Moin Hans,
ich habe mal auf den Code geschaut und eine Lösung gefunden!
Dim wert As Double
Dim i As Integer
For i = 1 To 3
wert = Cells(2, i)
If wert > 0 Then
Cells(2, i).FormulaLocal = "=" & Cells(21, 4) * wert
End If
Next i
Ist das so wie du es dir vorgestellt hast?
Beste Grüße
Niko
von der VBA-Seite: https://easy-excel.de/vba-lernen/
|