Zellen kopieren wenn mit VBA
16.11.2005 22:36:55
HansH
bekomms nicht hin. Ich würde gerne über Code die in E7 eingefügte Formel soweit runterziehen, wie in der Zelle links davon ein Wert höher oder niedriger 0 steht. Ist die Zelle links leer, dann sollte Schluss sein. Jetzt steck ich in der Sackgasse.
Sub test()
Range("E7").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<0,RC[-1]*(-1),RC[-1])"
Selection.AutoFill Destination:=Range("E7:E20"), Type:=xlFillDefault
End Sub
Kann mir da bitte jemand helfen?
Danke Hans