Formel per VBA ersetzen
09.01.2010 09:16:45
Roger
Hallo zusammen
Ich hab mir mal folgendes Makro geschrieben.
Range("J4").Select
ActiveCell.FormulaR1C1 = "=+RC[6]"
Range("J4").Select
Selection.Copy
Range("J5:J7").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Ich will damit in Spalte J ab Zelle 4 die Formel ersetzen. Mit obigem Makro geht das wenn die Anzahl Zeilen immer gleich ist, dies ist jedoch nicht der Fall, es kann mal nur eine Zeile sein es kann aber auch mehr als 100 sein. Es müsste bis zur letzten Zeile gehn die ausgefüllt ist, das wäre in diesem Fall J8, darf aber zelle J8 nicht ändern.
Irgendwie krieg ich das einfach nicht hin das er den Range automatisch anpasst.
Wäre euch dankbar für jede Hilfe.
Gruss
Roger