Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen kopieren wenn mit VBA

Zellen kopieren wenn mit VBA
16.11.2005 22:36:55
HansH
Hallo zusammen,
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren wenn mit VBA
16.11.2005 22:50:24
Beni
Hallo Hans,
Gruss Beni

Sub test()
lz = Cells(Rows.Count, 4).End(xlUp).Row
With Range("E7")
.FormulaR1C1 = "=IF(RC[-1]<0,RC[-1]*(-1),RC[-1])"
.AutoFill Destination:=Range("E7:E" & lz), Type:=xlFillDefault
End With
End Sub

AW: danke Beni, der Abend ist...
16.11.2005 23:00:41
HansH
gerettet. Ich schau mir das mal näher an und hoffe, dass ich es nicht wieder vergesse.
Gruß
Hans
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige