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

Forumthread: FOrmeln einfügen bis zur letzten Zelle

FOrmeln einfügen bis zur letzten Zelle
01.05.2009 16:36:03
Tobias
Hallo zusammen,
derzeit füge ich folgende Formeln mit einem Makro ein:

Private Sub Formeln_einfügen2()
Range("j2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,IF(RC[-2]-RC[-3]>=75,""ja"",""nein""),"""")"
Range("j2").Select
Selection.AutoFill Destination:=Range("j2:j20000"), Type:=xlFillDefault
Range("a1").Select
End Sub


Wunsch wäre jedoch, dass die Formel nur bis zur letzten belegten Zelle in Spalte A eingefügt wird. Geht sowas? Kann mir da jemand helfen?
Vielen Dank!
Tobias

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: FOrmeln einfügen bis zur letzten Zelle
01.05.2009 16:47:12
Thorsten_Z
Hallo Tobias,
so:

Private Sub Formeln_einfügen2()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("j2").FormulaR1C1 = "=IF(RC[-2]>0,IF(RC[-2]-RC[-3]>=75,""ja"",""nein""),"""")"
Range("j2:j" & irow).FillDown
Range("a1").Select
End Sub


Gruß
Thorsten

Anzeige
Super!
01.05.2009 16:53:31
Tobias
Hallo Thorsten,
genial, vielen Dank für Deine Hilfe!
Tobias

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige