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

Home

Gruppe

Funktion

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

Copy funktioniert nur einmal	Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei	Match Funktion spinnt (?)
SVerweis funktioniert nicht	PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office	Hilfe bei der INDEX Funktion
Zelladressen von FunktionsParametern ermitteln	Teilzahlen runden / bestimmte Summe
Matrixformel mit Summenfunktion	Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht	VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen	Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion	Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings?	Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht	Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung	Benutzerdefinierte Funktion
Userform mit Löschfunktion	Abrunden in vba
Frage zu Wenn Dann Funktion	Wenn-Funktion
Frage zur Funktion DISAGIO	Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt	VBA Suchfunktion erweitern
Makro funktioniert nicht richtig	zählenwenn-funktion mit mehreren kriterien
Funktion SVERWEIS	Benutzerdefinierte Funktion in Open Office
Runden	Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen	Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile")	Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht	Rundenauslosung
WENN-Funktion	Hide-Funktion in einem Frame
Suchfunktion	Date Funktion
Filter funktioniert nicht	Funktionsname austauschen