habe gerade irgendwie einen Durchhänger.
Ich bringe es nicht auf die Reihe folgende Formel =WENN(B4="Zugang";D4*C4;"") per VBA in
eine Zelle zu schreiben.
Die letzte beschriebene Zelle in Spalte A wird ermittelt mit
With wksTB1
xZeile = .Range("A65536").End(xlUp).Row
.Cells(xZeile, 5).FormulaLocal = ?
end with
Besten Dank
Gruss
Peter