VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte auf 9er-Endungen ab-/auf-/runden

Gruppe

Funktion

Bereich

RUNDEN

Thema

Werte auf 9er-Endungen ab-/auf-/runden

Problem

Die Werte im Bereich B2:D5 werden auf 9er-Endungen auf-, ab- oder gerundet.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und RUNDEN