Ich will per VBA die Zellen E und F (Zeile 4 bis letzte beschriebene Zeile) multiplizieren und das Ergebnis in Spalte F schreiben, also überschreiben.
Jemand eine Idee ob/wie das funktioniert?
Sub Multiplikation_einfügen()
Dim r 'row
With ActiveSheet
For r = 4 To .Range("F9999").End(xlUp).Row
.Cells(r, "F") = .Cells(r, "E").Value * .Cells(r, "F").Value
Next
End With
End Sub
VG
Sub Unit()
With Range(Cells(4, 5), Cells(Rows.Count, 5).End(xlUp))
.Copy
.Offset(, 1).PasteSpecial Paste:=xlValues, Operation:=xlMultiply
End With
Application.CutCopyMode = False
End Sub
Gruß Gerd