Gruppe
Funktion
Problem
Die Werte im Bereich B2:D5 werden auf 9er-Endungen auf-, ab- oder gerundet.
StandardModule: Modul1
Sub PositivKopieren()
Dim iRow As Integer, iCol As Integer
iCol = Range("IV1").End(xlToLeft).Column
iRow = 1
Do Until IsEmpty(Cells(iRow, iCol))
If IsNumeric(Cells(iRow, iCol).Value) Then
Cells(iRow, iCol + 1).Value = Abs(Cells(iRow, iCol).Value)
End If
iRow = iRow + 1
Loop
End Sub