Aufrunden auf halbe und ganze in WENN-Formel
02.12.2014 13:00:08
braun
Sub Makro1
Range("BZ3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>RC[-40],RC[-1],RC[-40])"
With ActiveSheet
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
'Formel aus L2 runterkopieren
.Range(.Cells(3, 78), Cells(lngLetzte, 78)).Formula = .Cells(3, 78).Formula
End With
End Sub
Guten Tag, ich würde gerne in diese Wenn-Formel ein AUFRUNDEN auf halbe bzw ganze Zahlen einbauen.Wie mache ich das ?
Vielen Dank im Voraus
Karin